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I. INTRODUCTION 



A. DEFINITION OF THE PROBLEM 

It is often observed that most of strategic problems are 
analyzed, discussed, and solved by many decision makers- The 
existence of multiple users have created a number of 
problems. First, it is difficult to physically reunite all 
decision makers in a geographic location. It is even more 
problematic in finding an appropriate time for all the group 
members. Second, the success of a group decision making 
process relies on the skillfulness of the group leader. 
Unfortunately, the quality of the group leader varies from 
one negotiator to the other, and from one situation to the 
other- In a military deci si on-rnaki ng context, this problem 
becomes even more complicated if one considers the 
increasing complexity of the technological aspect of warfare 
and uncertainty regarding political issues. 

This research proposes a cornput er— based group decision 
support system that attempts to resolve, or at least reduce, 
the problems enumerated above. It designs and implements a 
microcomputer — based DSS that allows group members to 
remotely and sequentially participate to collective decision 
problems. In particular, the proposed DSS is an expansion of 
a DSS based on rnul t iob.ject i ve decision methods, is 
implemented in a local area network using a bus architecture 
and the Carrier Sense Multiple Access with Collision 
Detection (CMSA/CD) protocol. The CMSA/CD protocol is 
known by its relatively good performance, simplicity of 
implement at ion, and inherent system reliability. Such a 
protocol allows control of collective information exchange 
and data routing among group decision members. 

The use of such a group DSS distributed in time and in 
space, is expected to eliminate the physical presence of 
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group members and the need of scheduling meetings. More 
important, the proposed distributed DSS provides a objective 
and flexible framework to integrate organizational norms and 
constraint into the decision situation. 

B. SCOPE OF THE RESEARCH 

This research does not attempt to discuss the already 
large and interdisci pi inary literature on group decision 
making. It attempts to expand some of the work in group 
decision support systems outlined by CRef. 1 to 31 Two major 
expansions include the possibility for the user (i) to 
d irect 1 y assess his preferences in cardinal terms, and (ii) 
to allow division of evaluation tasks according to 
individual expertise. In particular, this research primarily 
focuses on the software design and implementation of the 
networked micro-comput ei — based group DSS operating under a 
cooperative environment. However, the modular approach 
adopted for the proposed DSS would make it possible to 
expand the system to more complex form of group decision 
situations found, for example, in military strategic 
planning. 

C. ORGANIZATION OF THE THESIS 

Section II outlines basic definitions, concepts and 
architectures related to group decision making under 
computer-based settings. It emphasizes the communications 
aspects among group members via computerized media. Chapters 
III, IV, V and VI successively discusses the characterist ics 
of the components of the group DSS. Two multiple criteria 
decision methods are presented in III. A. Four techniques of 
aggregation of preferences are defined in III.B. The multi- 
window interface has been adopted for the GDSS interface 
(section IV. A). Data definitions and dictionaries are 
described in section V. Section VI addresses special 



applications of the cornrnunicat ions modules. Some 
observations on the development process of the GDSS are 
reviewed in section VII. Two examples of remote multi person 
decision-making in military strategic planning are anal yzed 
in section VIII. They illustrate the use of the GDSS to the 
selection problem of navy ships. 



II- A FRAMEWORK FOR IMPLEMENTING REMOTE MULT I PERSON GROUP 

DECISION SUPPORT SYSTEMS 



ft. DEFINITIONS AND BASIC CONCEPTS 
i . Definitions of group DSS 

ft collective decision-making process can be viewed 
as a decision situation in which (i) there are two or more 
persons, each of them characterized by his or her own 
perceptions, attitudes, motivations, and personal i t ies, (ii) 
who recognize the existence of a common problem, and (iii) 
attempt to reach a collective decision IZRer. ID. 
Furthermore, the group can interact simultaneously (i.e. , 
pooled-interdependent mode) or make individual decisions 
separately and then confront and discuss the results 
(i.e., sequent i a 1 -inter dependent ) . 

One can observe three broad types of group decision 
making: a single decision maker acting in a collective 
decision environment, non-cooperative decision making, and 
cooperative decision making. 

In the group decision-rnaking situation with one 
person, a particular decision maker ultimately makes the 
decision and assumes responsi bi 1 i t y for his line of action. 
However, the decision can be regarded as a collective one 
because of the existence of a dense network of influences 
that surrounds this single decision maker. In fact, other 
participants in the decision maker’ s organization can either 
support or act against the decision. Thus, the behavior and 
attitudes of other people who are indirectly involved in the 
decision-making process should be analyzed. 

In the non-cooperat i ve decision situation, the 
decision makers play the role of antagonists or disputants. 
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Conflict and competition are common forms of non-cooperative 
decision-making. While the former represents a situation in 
which disputants seek to hurt their opponents to pursue 
their own interests, the latter is characterized by the 
facts that each competitor is an action candidate, and is 
trying to outperform others. 

In a cooperative environment, the decision makers 
attempt to reach a common decision in a friendly and 
trusting manner, and share the responsi bi 1 i t y ■ Consensus, 
negotiation, voting schemes, and even the recourse to a 
third party to dissolve differences are examples of this 
type of group decision making. 

Also, the literature in decisi&n-making describes 
two types of decision situations involving more than one 
user: pooled interdependent and sequential interdependent. 
In a pooled decision-making situation, decision makers 
reunite together to form a more or less homogeneous group, 
and attempt to resolve a collective problem simultaneously. 
Elsewhere, in a sequential interdependent situation, members 
of the group can attack the collective problem at different 
periods in time, looking at different decision angles. 

Another classificat ion of group problem solving 
approach found in the literature is the distinction between 
content-or iented and process-oriented approaches. The first 
approach focuses on the content of the problem, attempting 
to find an optimal or satisfactory solution given certain 
social or group constraints, or objectives. By contrast, the 
second approach is based on the observation that the group 
goes through certain phases in the group decision— making 
process, and on the belief that there could be an arranged 
way to effectively deal with these phases. 

When a collective decision fails, it becomes 
nece ssary for the participants in the group problem solving 
to start bargaining or negotiating until a consensus is 
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found. While bargaining involves discussion within a 
specific criterion or issues, negotiation includes rnany 
criteria or issues in the discussion and search for 



consensus. 



2. flssurnpt ions 

Without loss of generality, the cooperative multiple 
criteria group decision support system implemented in this 
thesis, is a DSS that (i) contains MCDM and supporting 
models in the individual Model component , and (ii) is able 
to support multiple decision makers via a Group DSS to reach 
a consensus in a cooperative environment. 



Under certain decision circumstances, MCDM can play 
a crucial role in supporting group decision-making : 



( 1 ) 



( 2 ) 



( 3 ) 



( 4 ) 



( 5 ) 



Due to interpersonal differences, the existence of 
multiple and conflicting objectives is substantially 
more dominant in group decision-making than in 
single person decision-making ; 

Subjective and qualitative assessments seem to play 
a more crucial role in group than in single user 
decision-making. It has been observed that it is 
relatively easy for decision makers to agree upon 
problems that have objective, quantifiable and 
well— defined attributes. Conversely, decision makers 
tend to disagree upon attributes that require 

subjective and qualitative assessments. Furthei — 
more, in group decision-making, in addition to the 
evaluation of the situational problem, decision 
makers invariably attempt to evaluate and the 
decision analyses of themselves and others. 



The simplicity of MCDM outputs makes it easier to 
communicate, coordinate and aggregate individual 
analyses in the group decision-making process. 



The process often plays a more decisive role than 
the content in group problem solving. MCDM provide a 
simple but structured framework for controlling the 
decision-making process, i.e. , assessment of 
al ternat i ves, assessment of evaluation criteria, 
selection of an appropriate algorithm for assessment 
of preferences, and . search for a solution or 
compromise ; 



The division 
also allows 
opt imi zat ion 



of decision processes into four stages 
alternate utilization of both objective 
and subjective evaluation. 
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( 6 ) 



The iterative use of the MCDM processes would permit 
integration of predecision and postdecision phases 
in the habitual decision phase. 



Specifically, the Co— oP DSS 
research attempts to support the 
sit uat ion: 



discussed 
fol lowing 



in this 
decision 



(1) 



(2) 



(3) 



( 4 ) 



( 5 ) 



( 6 ) 



( 7 ) 



There are multiple users or decision makers. They 
may share an equal weight or have an unequal or 
'hierarchically’ distributed weight corresponding to 
a particular decision-making context. 



The group shares a common set of feasible decision 
alternatives. From this set of alternatives, the 
decision makers can either select one or more 
alternatives, or rank them according to a given set 
of criteria. 



Each decision maker may have personal objectives 
that reflect a priori values and as piration levels. 
Objectives are concretely expressed by criteria or 
attributes that are discrete, and at least ordinally 
measurable. Due to personal differences, individual 
decision outcomes — as opposed to acollect ive 
decision outcome that the group is trying to reach 
an agreement on — often differ from one decision 
maker to the other. 



The decision makers can be geographically dispersed 
and not required to log into the system at the same 
time. Via a distributed computer network system, 
they can communicate to others either sequentially 
or in an on-line mode. 

The decision makers interact in a cooperative manner 
and in a trusting environment. The system does not 
handle attempts to cheat or to seek coalition within 
sub— groups. 

The decision makers can either work closely together 
by forming a homogeneous group that uses a single 
decision support system, or work independent 1 y and 
then proceed to a multilateral assessment of the 
problem. 

The decision makers can segment a group decision 
problem into (hierarchical ly) sequential single user 
decision problems according to individual expertise 
and responsi bi 1 i t y. 
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3. Cornrnunicat ions Issues in Distributed Decision Making 

In the context of a distributed group decision 
making, the demands for information exchange are marked by 
certain charact er ist ics that should be considered in the 
design of cornrnunicat ions capabilities. These charact er ist ics 
could be best expressed by the requirements of having 
information exchanges that are (i) format -transparent , (ii) 
either constrained or unconstrained, and (iii) evolving 
throughout the decision phases. 

a. Need for Format-Transparent Information Exchange 
The demand for and/or generation of information 

among decision makers can take a variety of formats, ranging 
from unstructured and written notes to structured and 
numerical tables CRef. 4 D . The most complex form of traffic 
is the situation in which decision .makers simultaneously 
require information exchanges on different subjects from 
different members using complicated combinations of 
input/output formats. It would then be necessary to 
identify, classify and convert information charact er i zed by 
various individual formats into standard message formats, 
including the creation and maintenance of information 
related to group problem solving techniques, such as aggre- 
gation of preferences which requires some standardized 
inputs from individual results. 

b. Limited versus Free Information Exchange 

In some group decision situations, it is 
conceivable that all shared information is ’public’ in that 
every member of the decision group has the right to access 
any information that is sent by one member of the group to 
another, whereas in some other decision situations, 
individual-to-individual or private message transfers are 
authorized CRef. 5 3. Thus, the creation, (statistical) 
maintenance and storage of message routing activities 
remains crucial in enforcing group norms concerning the type 
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of information sharing (e. g- , consensual ly predefined by the 
group prior to the group decision-making process, or moni- 
tored by the mediator. 

c. Evolving Pattern of Communication Requirements 

The requirements for information sharing evolves 
through various phases of the group decision-making process. 
For example, CRef. 6 3 argues that a group problem solving 
phase that emphasizes search and innovation requires more 
spontaneity, and therefore an open communications pattern; 
whereas, bargaining activities that induce a preference for 
deliberate control of information exchange would be 
faci 1 itated by using individual— to— ind ividual comruunicat ion 
channels. 

Furthermore, empirical studies have shown that, 
under certain circumstances, comruunicat ion channels can 
escalate conflict CRef. 7 3. While encouraging information 
exchange between group members is often recognized as an 
effective strategy to resolve individual differences, 
eliminating communication channels has shown its effective- 
ness in preventing deteriorat ion of relationships. While the 
decision to encourage or discourage comruunicat ion between 
decision makers depends on a number of unpredictable 
sit uat ion— dependent factors, the GDSS communications compo- 
nent should be designed in such a way that it can 
accommodate various comruunicat ions needs and changes during 
the group decision-making process. In other words, the 
pattern of communications protocols should vary according to 
the dynamics of the group deci si on-making process. 

4. The Role of the Cornrnun i cat ions Component 

One of the roles of the communications component 
that emerges from the literature is that it makes it easier 
for each member of the group to electronical ly communicate 
without having to be concerned about detailed and 
complicated protocol procedures- This issue of user 
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t rarisparency is particularly crucial given the diversity, 
and consequently the complexity, of the cornrnuni cat i on 
requirement s and facilities. 

However, the effort to obtain ease of cornrnuni cat i on 
access is not unique to the design of group DSS. Rather, it 
has always been one of the most important objectives of 
computer networks design. Vet, one can identify at least 
three roles that are specific to a cornrnuni cat ions system in 
group problem solving. Pt different phases of the 
distributed decision process, the communications system can 
play the role of a coordinator, a detective, or an inventor. 

a. The Coordinator Role 

Most problem solving activity begins with 
situation analysis and problem definition. Situation 
analysis is character i zed by a (common) recognition that 
there exists an urgent and important problem to be solved. 
Once identified in the situation analysis, a problem is 
transformed in the problem definition phase in such a way 
that solutions can be generated, analyzed and selected. 
CRef. 8 1 and CRef. 9 1 emphasize that the success of 
information gathering and problem definition relies on the 
ability of the group to eliminate mistrust and threat that 
could cause group participants to withhold or distort 
information. Walton CRef. 6 1 suggests that by installing a 
communication medium that follows some norms of fairness 
(e. g. , equality of part icipat ion, preserving autonomy) , 
information exchange can be more abundant and accurate. The 
communication component should thus coordinate various 
protocols to engender part ici pant s’ confidence. Such proto- 
cols could include the ones that <i) assure each member can 
successively broadcast his/her ideas given a equal amount of 
time, or <ii) support teleconferencing to synchronize 
arguments. 
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b. The Detective Role: 

A decision maker’s analysis could be distorted 
by (i) the individual’s attempt to ’spy’ on others 
activities, or <ii) the influence of some members who try to 
take over an individual’s responsi bi 1 i ty. The communications 
component should then play the role of detective to prevent 
unwanted data exchange or temporarily disable all links, or 
prevent malicious modification of public data. Concurrent 1 y , 
decision makers tend to delay sending their individual 
results. The communications component should press its users 
to submit opinions before a given due date. 

From a general perspective, the detective role 
consists of enforcing communications protocols previously 
defined to drive the collective decision-making process. 

c. The Inventor Role: 

The inventor role is an extension of the 
coordinator role. Given the complex nature of a collective 
decision problem and the diverse and unpredictable decision 
approaches adopted by the part ici pants, the communications 
component should be able to detect incompatible information 
exchange, and, if possible, propose alternate formats. The 
inventor role implies (i) potential for tolerance to 
uncertainty in requests and needs for data transfers, and 
(ii) continued search for communications operations that 
facilitate information exchange CRef. 10 3. Thus protocols 
for distributed GDSS should be able to analyze, evaluate and 
determine the content of transmissible information, rather 
than simply perform a transport task. 

The funct ions of the communications component 
are at least twofold. First, it monitors a broad spectrum of 
data transports during a group problem solving process. This 
transport function ranges from information exchange to 
information hiding, from selective and personalized routing 
to collective diffusion of data from public to private 
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informat ion. Second, it coordinates various cornrnunicat ions 
activities (i.e. , init ial i zat ion, operation during consensus 
search, negotiation and mediation) by making it transparent 
to the members of the decision group. 

B. AN ARCHITECTURE FOR GROUP DSS 

Co-oP is a network of microcomputer-based process-driven 
DSS for cooperative multiple criteria group decision making 
(Figure 1). Each participant of the group decision making 
process has his own individual DSS whose model base is based 
on multiple criteria decision methods (MCDM) and other 
personal decision support tools. The group DSS contains a 
set of aggregation of preferences techniques and consensus 
seeking algorithms that can be used in conjunction with 
individual MCDM. 

The individual DSS are linked together by a microcompu- 
ter local area network. The latter support both locally and 
remotely (via modem) linked individual workstat ions. 
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MAIN MENU 

1. MULTIPLE CRITERIA GROUP PROBLEM DEFINITION 

2. GROUP NORM DEFINITION 

3. PRIORITIZATION OF EVALUATION CRITERIA 

4. INDIVIDUAL EVALUATION OF ALTERNATIVES 

5. DIRECT IfPUT OF THE DATA 

6. COMPUTATION OF GROUP DECISION 

7. IDENTIFICATION OF NEGOTIABLE ALTERNATIVES 



Enter a nunber : 



MAIN MENU 

For HELP enter (ALT) R / (ESC) to quit Help 



. The Main Menu 



Fig ure 1 



III. THE MODEL COMPONENT 



The Model Component of a DSS is expected to support the 
user perform the following problem-sol ving activities: 

projection, deduction, analysis, creation of alternatives, 
comparison of alternatives, optimization and simulation 
CRef. 11 3. The literature in DSS often identifies three 
modules in a DSS model component : the model base, the model 
base management, and the interface unit. This chapter 
describes the three components of the group DSS. 

A. ' THE MODEL BASE 

The Model Base of a DSS consists of a library of 
decision models that help the group members perform 
individual and group analyses. 

1 . The Model Base for Individual Decision Making 

In addition of the possibility for the user to 
directly enter his preferences/assessments to the system and 
if needed, share them to other group members, the purpose of 
the Co-oP MCDM model base is to provide the decision makers 
with a set of decision models that can solve the most common 
types of decision problems. Co— oP contains two models that 
(i) cover three basic decision situations, i.e. , selection, 
ranking, sorting, (ii) are not excessively difficult to use 
for the decision makers, and (iii) could interact with 
techniques of aggregation of preferences. The MCDM methods 
implemented in each of the individual DSS are the Analytic 
Hierarchy Process (AHP) CRef. 12 3, and ELECTRE CRef. 13 3 

ELECTRE and AHP have been selected for two reasons: 

(1) The two MCDM are conceptually robust, and prac- 
tically easy to learn and use. They have proven 
their usefulness in aiding a number of ill-defined 



decision situations (for example, CRef. 14 D and 
CRef. 15 3 ) ’ 

(£) Neither ELECTRE nor AHP require full information on 
the decision maker’ s preferences and assessment of 
alternatives, and hence, give more autonomy and 
control to the decision maker CRef, 16 1. This 
feature makes it easier to expand the algorithm to 
resolve group decision making. 

This section briefly outlines basic concepts of the 
ELECTRE and AHP methods. 

a. The ELECTRE Method: Basic Concepts 

There are a number of reasons that make it 
difficult for a decision maker to exhaustively compare all 
known alternatives. First, the decision maker often cannot 
compare some alternatives, due to uncertainty associated 
with the measurement s and evaluation. Second, the decision 
maker may be unwilling to compare two alternatives because 
they are incomparable; e. g. , option A is better than option 
B by some criteria, whereas B is better than A by some other 
criteria. The notion of indifference in utility theory does 
not reflect this incomparability CRef. 17 D . Last but not 
least, the ill-structuredness and occasional inconsistency 
of the decision maker’ s preferences are serious obstacles to 
enforcing the complete comparability of alternatives (see 
CRef. 12 3 ). 

The concept of outranking relations seeks to 
compare decision alternatives only when the decision maker’ s 
preferences are well defined. In other words, a t outranks a„ 
when the information obtained from the decision maker’ s 
preferences safely .justifies the proposition that a 4 is at 
least as good as a J . 

The outranking relation can be explained by two 
further concepts: the presence of concor^d^nce (i.e. , for a 

sufficiently important subset of evaluation criteria, A is 
at least weakly preferred to B) ; and the absence of 
discordance (i.e., among the criteria for which B is 
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preferred to A, there is no significant discordant 
preference that would strongly oppose any form of preference 
of A over B) ■ 

These indexes are used in conjunction with 
concordance and discordance ’ thresholds’ chosen arbitrarily 
by the decision maker in the interval CO, ID. The concordance 
threshold, p, is more severe as it approaches 1; the discor- 
dance threshold, q, is more severe as it approaches 0. Then, 
the outranking relations can be summarized as follows: 



IF 




THEN 


Ca/B >= p 


and D a /B <= q 


A outranks B 


A outranks 


B, and B outranks A 


The alternatives are 
equivalent 


Otherwise 




The alternatives are 
incomparable 



The decision maker can start with a less severe 
set of threshold values, and then sharpen them to reduce the 
number of outranking relations. 

b. The Analytic Hierarchy Process : Basic Concepts 

The Analytic Hierarchy Process (AHP) is a MCDM 
method that attempts to support complex decision problems by 
successively decomposing and synthesizing various elements 
of a decision situation CRef. 12 3. Like ELECTRE, AHP 
permits subjective and qualitative pairwise comparison of 
alternatives. Unlike ELECTRE whose concept is based on the 
notion of non— dominated alternatives, AHP has its foundation 
on the concept of priority . The latter can be defined as a 
’level of strengths’ of one alternative relative to another. 
Departing from a predefined priority scale, the decision 
maker is asked to build a positive reciprocal matrix of 



pairwise comparison. A vector of priority can be derived by 
computing the eigenvector of the reciprocal matrix. The 
property of the eigenvector resides in the fact that it is a 
consistency indicator. Consistency is obtained when pairwise 
comparisons are transitively and proport ional ly consistent. 

Additional algorithms are added to help measure 
the decision maker’s consistency. These algorithms contrast 
the user’s evaluation scores with <i> a randomly simulated 
score that represents the most irrational evaluation, and 
(ii) the eigenvalue that represents the most accurate 
consistency. The examination of the consistency values 
enables the user to eventually revise initial judgments, 
and, if appropriate, modify them to improve overall 
consistency. 

The Model Base for Group Decision Making 
Four techniques of aggregation of preferences are 
implemented in the GDSS. They are chosen because of their 
popularity. These include the additive function, the multi- 
plicative function, the sums— of —the— ranks approach, and the 
s urns-o f — t h e-out ranking- relat ions approach. 

In conjunction with the techniques of aggregation of 
preferences, the weighed majority rule is also implemented 
to account for the distribution of decision power among 
decision makers. This rule allows the group members to 
different iate their decisional power according to various 
degrees of expertise or organizational hierarchies. 

( 1 ) The Sums-of-the-Qutrankinq-Relat ions Princi pie 

This technique is derived from the sum— of —the— ranks 
technique found in the literature of aggregation 
of preferences. Formally, it can be expressed as 
f ol lows : 



Max C i=l ( k- 1 o* w ) 3 

This technique should be used only with extreme 
care. Experience with this technique has shown that 
the idea of selecting the alternative that has the 
highest number of outranking relations works fine 
only when the number of alternatives are small. An 
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example with three decision makers and three 
alternatives, with a 3 as the elected alternative, is 
given below. 



Ordinal Ranking Outranking Relations 



Rank 


DM, 


DM. 


DM, 


at 


a* 


a 3 


Sums of the 
Relat ions 


i 


a t 


a 3 


a 3 


at 




£ 


1 


o 


a* 


ai 


a# 


a* 


i 


- 


1 2 


3 


a 3 


a# 


a t 


a 3 


2 


2 


- 4 (-Max 



Sums- 


•of-the-Ranks Rule 






The 


sums— of— the- Ranks 


rule (Bor da. 


1781) can be 


defined as follows: 






where 


r. 4 is the rank assigned by 


decision maker 


d to 


alternative a t . 


The example below illustrates 


this 


rule. 







A1 tern. 


DM, 


DM. 


DM, 


Sums— of —t he- Ranks 


at 


4 


4 


. =l 


10 


a® 


1 


1 


3 


5 < — Min 


a 3 


2 


2 


4 


a 


a 4 


3 


3 


1 


7 



Due to its computational simplicity this technique 
is widely used to determine consensus ranking. Note 
that the averages-of-t he-ranks rule yields the same 
results. However, when there are ties, the results 
are different. 

(3) Additive Ranking 

In the additive ranking method, group results are 
obtained by computing the arithmetic mean of the 
individual rankings assigned to each alternative. 



27 



Due to its simplicity, this method remains one of 
the most popular aggregation of preferences 
techniques. The example below illustrates this rule. 



A Item. 


DM, DM. DM, 


Add i t i ve 


* Ranking 


a t 


4 4 2 








a* 


113 


1. 66 






a* 


2 2 4 


2. as 


— > 


MAX 


a 4 


3 3 1 


2. 33 






Mult i pi icat i ve Rankinp 








The pn i 1 


osophy that underlies 


the 


mult i pi icat i ve 


approach 


is to allow 


more vot i ng 


power to each 


decision 


maker of the 


gro up. 


In 


effect, the 


mu 1 t i p 1 i cat i on of i nd i v i d ua 1 


card i na 1 rank i ngs 


ampl i f ies 


► the individual 


op i ni ons. 


Specifically, it 


allows vetoes to take 


place. 


he 


example below 


illustrates this rule. 








A1 t ern. 


DM, DM a DM 3 


Mult i pi icat i ve Ranking 


a i 


4 4 2 


3. 17480 




a« 


1 1 3 


1 . 4422 


4 




a* 


2 2 4 


2. 51984 




a* 


^ S±} 1 


2. 08008 





B. THE MODEL MANAGER 

The role of the model manager is to coordinate various 
modelling activities of the GDSS. In Co-oP, the multiple 
criteria group decision making is decomposed into five 
decision processes (see Figure 2 ). 

(1) Definition of the Group Problem 

The group must agree upon a common problem and 
delegate a group member — usually the group leader 
or the secretary — to define a problem. In the 
Co-oP context, the defined group problem consists of 
identifying the alternatives and evaluation 
criteria. Section VIII provides an example of this 
process. 
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(£> Group Norm Definition 

The group has to identify its members and assign 
individual passwords. It also has to agree upon the 
way it handles data transfers, interactive 
conversation, utilization of electronic mail, and 
the type(s) of techniques of aggregation of 
preferences adopted. Division of evaluation tasks 
between group members can also be specified. The 
group can also request automatic selection and 
computation of appropriate decision technique. 

(3) Individual Evaluation of Criteria 

This process requires that each group member 
prioritize his/her evaluation criteria. This can be 
either accomplished by asking each decision maker to 
directly assign weights to the criteria or use the 
Analytic Hierarchy Process scheme to generate the 
we i ghed or pr i or i t y vector. Co— oP all ows e 1 i m i nat i on 
of weak criteria. 



(4) Individual Assessment of Alternatives 

Given a chosen problem, this process allows the 
group members to individually express their 
preferences regarding the alternatives. This process 
can be either direct (i.e. , the user enters cardinal 
weights to each alternative) or indirect (i.e., the 
group member uses one or two available MCDM 
techniques) . 

(5) Computation of Group Results 

Guided by the instructions defined in the group norm 
(i.e., the second process), group results are 
automatically computed once all individual analyses 
are subm i 1 1 ed . 



1 . Integration of Models 

Unless otherwise specified by the group norm, the 
Co-oP group module automatically searches for all 
aggregation techniques that are compatible with the 
individual MCDM used. If direct assessment of alternatives 



or AHP has been adopted by every group member for individual 
assessment of alternat ives, all of the four implemented 
techniques will be computed, since the latter are compatible 
with the AHP in that they are based on cardinal preferences. 
However, the ELECTRE method can work only with the 
sums-of-the outranking— relat ions and, to a certain degree, 
the sums-of-the-ranks al gorithrns. 
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When both available MCDM are used concurrently by a 
group member, the Co-oP model manager automat ica 1 ly searches 
•for group decision techniques that can accept inputs ■from 
both A HP and ELECTRE. When a single user alternately uses 
both available MCDM, the Co-oP model manager sequentially 
displays group results according to all possible combina- 
tions of individual methods. 

Such a sensitivity analysis constitutes a point of 
departure for the group to start exchanging points of view 
and directions to reach agreement, and, if any, reducing 
tension. The group can then temporarily exit from ELECTRE, 
and use the electronic notepad to informally resolve these 
problems of control and of tension management. If some 
concessions can be obtained, the participants can return to 
ELECTRE and modify evaluation scores accordingly. By 
switching back and forth between the individual DSS and the 
group DSS , the participants can perform ’sequential conces- 
sions’ . 

£. Combined Use of MCDM and Techniques of Aggregation 
of Preferences 

Bui CRef. ED argues for a unified MCDM framework. 
Such an attempt is necessary to (i) support a wide range of 
decision situations, (ii) enable economy of information 
search, (iii) allow division of evaluation tasks. In the 
Co— oP version implemented for this thesis, there are three 
possible levels of interaction between ELECTRE and AHP. 
First, ELECTRE, when used alone, assumes that the decision 
has a defined vector of criterion weights. AHP can help the 
ELECTRE user perform priorit isation of evaluation criteria 
prior to the pairwise evaluation of alternatives. Second, 
when the size of a decision problem is large, the number of 
inputs required to perform the AHP method can be excessive. 
The Co-oP user can use ELECTRE as a sorting tool to reduce 
the problem size, and then utilize AHP. Third, since the two 
methods refer to the same decision space (defined in the 



30 



Co-oP first process), they can be concurrently used to 
verify the decision maker’s consistency. 



C. THE LINKAGE MODULE 

The purpose of the Co— oP Linkage Module is to feed input 
data to various models of the Model Base and to route output 
data to various files managed by the Data Base Component. 
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Figure 2. 




The Co_oP Decision Making Process 
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IV. THE INTERFACE COMPONENT 



A. SCREEN DESIGN 

Despite the structured aspect of the multiple criteria 
group problem solving processes, it remains an eventual 
burden for the decision makers to memorize what he has done 
in the previous steps. Maintaining a high degree of 
coordination and cohesiveness of thoughts is particularly 
prevalent in complex decision problems CRef. 17 3. 

Screen Format : During the problem definition and the 
group norm definition processes, data entry in out 1 ine form 
is adopted. Such an entry form would not only facilitate the 
thinking process of t hernanagers, but also help decompose 
objectives into hierarchical levels CRef. 12 3. Section VIII 
exhibits examplesof the outline forms used for defining the 
col lect i vedeci sion problem and the definition of group 
norms. 

For the multiple criteria group decision processes 
(i.e., processes 3 through 7), Co— oP proposes a screen 
format that displays simultaneously four different windows 
(see Section VIII). Whenever possible, Co-oP uses the same 
screen format throughout its usage. The purpose of such a 
design is to provide the user with a synoptic andfarniliar 
snapshot of the current state of the problem, throughout 
the entire decision-making process. 

The Step Window located at the bottom screen keeps the 
decision maker up to date on the current decision making 
status. It consists of a t wo-1 inest at us text indicating 
alternatively the current step in the hierarchy of group 
problem processes, and any required prompts or diagnostic 
messages related to the DSS— user interaction. 



The Dialogue Window provides a conversational medium 
between the decision maker and the DSS. It enables the 
Question/ Answer mode of interaction to be accompanied by 
verbal and color/graph ic explanation of various processing 
sequences and i nt errned i at e results. 

To support the decision maker’s orientation during the 
group decision-making process, the Working window at the 
upper left corner of the screen reminds the user of vital 
information from past dialogue or inputs. Also, it displays 
the results obtained by other participants if requested. 

The So 1 ut i on w i ndow is located at the upper right of the 
screen. It displays intermediate and final results including 
statistical indexes, and highlights optimal values. Tabular 
outputs and bar graphs are combined to provide alternate 
ways to represent outputs. 

Throughout the entire Co-oP process, the windows can be 
recognized by their colors. However, they vary in size 
according to the required amount of information displayed 
<e. g. , number of decision makers, number of decision 
alternatives, and number of evaluation criteria). 

In addition to the above mentioned window, an electronic 
notepad window can be invoked at any time to make use of 
person-oriented and unstruct ured communi cat ions. 



B. DIALOGUE STYLE 

In addition to the window structure that governs the 
entire Co-oP group decision making process, Co-oP combines 
menus and questions to communicate with its users. The 
purpose of these dialogue styles is to provide the users 
with a structured, simple and controlled framework to 
interact with an integrated set of multiple criteria group 
decision methods. Whenever possible, concise queries and 
uniform terminology are used throughout the six processes of 
the Co— oP group decision making process. 
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The use of menus and queries also facilitates establish- 
ing error procedures. Although error control procedures are 
not unique to the design of multiple user interface, an 
eventual I/O error occurring in a group DSS can generate 
unexpected and severe consequences in a distributed DSS. 
Input control routines have been implemented at each entry 
level to minimise the likelihood of input errors, or to 
maximise the possibility of recovering from errors when the 
latter occur. 

To handle errors made by the users, Co-oP provides two 
types of error control procedures. The first type of 
procedure detects syntax errors. For instance, entering a 
negative number of decision makers or typing an invalid 
filename would be gracefully rejected by the Co— oP dialogue 
manager. The second type of control routines attempts to 
prevent decision makers from violating basic assumptions or 
rules of the decision methods. For instance, the dialogue 
manager will refuse a concordance threshold higher than 100 
percent when ELECT RE is used. 

Co-oP also generates short explanation messages in the 
Step window to maintain the user confidence in the system, 
or at least make the multiple criteria group decision making 
less unnatural to the users. 



C. THE HELP COMMANDS 
Help facilities 
resident program that 
Co=oP d ec i s i on-rna king 
amount of text, the 
down into eight sect i 



are implemented 
can be concurrent 
process. Due to 
help program is 
on (see Figure 3). 



on a separate and 
ly invoked during the 
its relatively large 
h i erarch ica 1 ly broken 




Figure 3. The Help Menu 
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V. THE DATA COMPONENT 



A. THE DATA STRUCTURE 

The current version of Co-oP is a process-centered group 
DSS, as opposed to a data-centered DSS (for instance, see 
CRef. IS 3 ). As a consequence, the structure of the Co— oP 
data component is minimal. Its objective is to (i) insure 
smooth and fast data transport from one MCDM step to the 
other, and (ii) facilitate data exchange between decision 
makers. 

Data files are grouped according to each process. These 
include (i) a file containing the problem definition 
(Process 1), (ii) a norm file for each group norm, (iii) a 
solution file for each group members, and (iv) a group 
results file for each decision problem. Data dictionaries 
are given in Tables 1, £, 3 and 4. 

To minimize the time needed for data transfers between 
individual workstations, data files are physically central- 
ized and stored in the server of the Local Area Network. 
However, they are functionally distributed in that they can 
be accessed only by authorized group members. 



B. THE DATA MANAGER 

In the current version of 
performs a double functions, 
correctly transferred to their 
consistency transfer, i.e. , 
mod i f icat ion. 



the GDSS, the Data Manager 
It (i) assures that data are 
location, and (ii) checks the 
validating the number of data 
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LOGICAL DATA BASE 


TABLE 1 

RECORDS FOR STORE THE DATA OF A PROBLEM 


PROBLEM = RECORD 


namel 


string, it holds the name of the 


levels 


problem. 

Integer, it holds the number of the 


numofalternat i ves 


criteria 1-5 

Integer, it holds the number of the 


level 1 


alternatives that a problem have 
arrayC1..53 of string, it holds the 


levels 


names of the criteria of level 1-5 
array C 1 . . 5, 1 . . 53 of strings, it holds 


level3 


the names of the criteria of sublevel 
1. (1-5) - 5. (1-5) 

array C 1 . . 5, 1 . . 53 of strings, it holds 


level 4 


the names of the criteria of sublevel 
1. 1. (1-5) - 1. 5(1-5) 

array C 1 . . 5, 1 . . 53 of strings, it holds 


level5 


the names of the criteria of sublevel 
2. 1. (1-5) - 2. 5(1-5) 

array C 1 . . 5, 1 . . 53 of strings, it holds 


levels 


the names of the criteria of sublevel 
3. 1. (1-5) - 3. 5(1-5) 

array C 1 . . 5, 1 . . 53 of strings, it holds 


level7 


the names of the criteria of sublevel 
4. 1. (1-5) - 4. 5(1-5) 

array C 1 . . 5, 1 . . 53 of strings, it holds 


level 1 


the names of the criteria of sublevel 
5. 1. (1-5) - 5. 5(1-5) 

integer, it holds the number of the 


sublevel 1 


criteria 1 —5 

arrayCl.53 of integers, it holds the 


sublevelS 


number of the criteria for sublevels 
1. (1-5) - 5. ( 1-5) 

array Cl . . 5, 1 ■ . 53 of integers, it 


al ternat i ves 


holds the number of the criteria in 
sublevels 1. 1. (1-5) - 5.5. (1-5) 
array C 1 .. 153 of strings. It holds 


END 


the names of the alternatives of 
the problem 
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TABLE £ 

LOGICAL DATA BASE RECORDS FOR STORE THE DATA OF A PROBLEM 
SOLUTIONl ■ RECORD 



pfactor, qfactor 


integers, they holds the Concordance and 
Di scordance Threshold 


nurnof cr i t er i a 
nurnofalternat ives 


integer, it holds the number of criteria 
integer, it holds the number of the 
alternat ives 


alternat ives 


arrayC1..91 of string , it holds the name 
of the alternatives 


nurnof users 


integer, it indicates the number of the 
users 


solved 


array Cl. .31 of boolean, it indicates if a 
particular user has solve the problem 


grad i ng 


array Cl.. 31 of array C 1 .. 31 , i t contains 
weights of criteria 1-5 for each user 


completed 


boolean, it indicates if the evaluation o 
the criteria is completed of all the user 


complet edal 1 


boolean, it indicates if the problem is 
solved 


vect or 1 


arrayC1..51 of reals, it contains the 
weights of the criteria of sublevel 1 -5 


vectors:, vectors, 
vect or4, vectors, 
vector6, vector7 


array Cl.. 5, 1.51 of reals, it holds the 
weights of all the rest criteria 


norm vect or 1 


array Cl.. 1251 of strings, it holds the 
names of the final criteria ( after the 
evaluation ) 


norrnvect or£ 


array Cl.. 1251 of reals, it holds the 
weights of the final criteria ( after the 
evaluation ) 


norm i nd ex 
al trnat r i x 
f inal index 


array Cl.. vect or g ; 

altrixCl. . # alternat i ves, 1 . . # cr i t erial 
array Cl.. 31 of boolean, it indicates if a 



specific user has compute the evaluation 
of the alternatives 
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TABLE 2 
(cent inued ) 



ahp : record 
st at us 


boolean, it indicates if the solution 
of a problem has been computed with the 
AHP 


al t vectorl 


arrayC 1..9D of real, it contains the final 
weights of the alternatives 


nurnoftr ies 


integer, it indicates how many times the 
user has modify the solution of the 
problem 



end ; 

elect re : record 



st at us 


boolean, it indicates if the solution of a 
problem has been computed with the ELECTRE 


outranking 


array C 1 . . 9, 1 . . 9D of char, it contains the 
outranking matrix for the alternatives 


nurnoftr ies 


integer, it indicates how many times the 
user has modify the solution of the 
problem 


end ; 




END ; 
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TABLE 3 


LOGICAL DATA BASE RECORDS FOR STORE THE DATA OF A PROBLEM 


usersnarnes 


array Cl.. 3D of stings, it holds the 
names of the users 


usersids 


array Cl.. 3D of strings, it holds 
the users id 


nurnof cr i t er ia 


integer, it holds the number of criteria 


nurnof a 1 1 ernat i ves 


integer, it holds the number of the 
al ternat i ves 


alt ernat i ves 


array Cl.. 93 of stringd, it holds the name 
of the alternatives 


norrnvect or 1 


array Cl.. 1253 of strings, it holds the 
names of the final criteria ( after the 
evaluation ) 


norrnvect or 2 


array Cl.. 1253 of reals, it holds the 
weights of the final criteria ( after the 
evaluation ) 


ahp s record 


st at us 


boolean, it indicates if the solution 
of a problem has been computed with the 
AHP 


al t vector 1 


array Cl.. 93 of real, it contains the final 
weights of the alternatives 


numortries 


integer, it indicates how many times the 
user has modify the solution of the 
problem 


end ; 

elect re : record 


st at us 


boolean, it indicates if the solution of a 
problem has been computed with the ELECTRE 


out ranking 


array C 1 . . 9, 1 . . 93 of char, it contains the 
outranking matrix for the alternatives 


nurnof t ri es 


integer, it indicates how many times the 
user has modify the solution of the 
problem 


end ; 
END ; 
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TABLE 4 

LOGICAL DATA BASE RECORDS FOR STORE THE DATA OF A PROBLEM 



NORM = RECORD 



numof users 


integer, it holds the number of the 
users that are going to solve the 
problem 


rnod i fyt irnes 


integer, it indicates how many times a 
user can modify the solution of the 
problem 


lastt irne 


integer, it indicates the last date that 
a user must submit his solution 


usersnarnes 


array Cl- -3D of stings, it holds the 
names of the users 


specindex 


array Cl.. 5] of strings, it indicates the 
criteria that each user is going to solve 
in the division of tasks case 


users ids 


array Cl.. 3D of strings, it holds 
the users id 


weight 


arrayC1..3D of real, it indicates 
the weight of the decision of 
each user 


agregat i on 


boolean, it indicates if we are going to 
use all the techniques of aggregation 
of preference 


nai 


boolean, it indicates if the program 
will use NAI automat ical ly after the 
complication of the group result 


special i zed 


boolean, it indicates if we are going 
to use division of tasks or not 


broadcast ing 


boolean, it indicates if the users have 
the right to see the others users 
results 


rnod i fy 


boolean, it indicates if the user has 
the right to modify the solution of 
the problem 


agregat ionnarne 


arra yC1..4D of characters, it indicates 
the techniques of agregation of 
preference that we are going to use 



END 



VI. THE COMMUNICATIONS COMPONENT 



A. THE GROUP NORM CONSTRUCTOR 

The Co— oP Group Norm Constructor resides in the second 
Co-oP multiple criteria decision making process. The group 
leader or secretary has to initiate the group decision 
making by (1) identifying the group members, (2) assigning 
respective decision weights, (3) determining the mode of 
group decision making (e. g. , division of evaluation tasks or 
’pooled’ decision making), (4) selecting the techniques of 
aggregation of preferences, (5) setting the mode of 
information exchange (i.e. , broadcast of individual 
results), and (6) defining the deadline for the group 
members to submit individual results. 



B. THE GROUP NORM FILTER 

The Co-oP Group Norm Filter consits of a set of 
subroutines that enforce the norms set by the Group Norm 
Moni tor. 



C. THE FORMATTER 

The main role of the Co-op formatter is to convert 
individual results computed by the ELECTRE and AHP methods 
to data formats that can be inputted into the modules 
containing the techniques of aggregation of preferences. For 
instance, individual cardinal rankings are converted into 
ordinal rankings for the sums— of-t he-ranks algorithm. 
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VII. IMPLEMENTATION OF THE GDSS 



A- SOFTWARE STRUCTURE 

Turbo Pascal cannot handle program files whose size is 
larger than 62 kilobytes. To override such constraint, Co-oP 
has been decomposed into 15 including files. The latter are 
described below. Also, filenames under IBM-PC-DOS cannot 
have more than eight letters, abbreviated filenames have 
been used. 

DIRLIST1 

PROCEDURE DIRLIST displays on the scrren the existing files 
of previously defined problems ( probl ern_narne. def ) 

DIRLIST2 

PROCEDURE DirListA The same as above but for the norms 
f i les (norrn^name, gn) . 

PRQCED 

FUNCTION STUPCASE t urns a string to uppercase characters. 
FUNCTION EXIST examines if the file requested by a user to 
access exists. If it exists it returns the value TRUE else 
returns the value FALSE. 

PROCEDURE WAIT stops the execution of the program until the 
moment that the user will hit a key. 

PROCEDURE CLEARSCREEN clears the screen for line 1 to line 
10 to make space for new data. 

PROCEDURE CONVERT converts a string to the corresponding 
nurner i ca 1 va 1 ue 

PROCEDURE IDENTIFY reads the user input and accepts it only 
if it is Y or N. 
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PROCEDURE CHECKNUMBER reads a number that the user enters 
and accepts it only if it is within a predefined range. 
PROCEDURE S0RT1 sort an array of numbers. 

PROCEDURE WRITENORMFILE reads from the program the current 
norm data and writes them in a file (e. g. , data of the 
current norm) . 

PROCEDURE WRITEPROBLEMFILE reads the norm data from the 
current norm file and passes them to the program. 

PROCEDURE READPROBLEMFILE reads from the program the problem 
data and writes them in a file (e. g. , data of the current 
problem) . 

PROCEDURE READNORMFILE reads the data for the corresponding 
norm file and passes them to the program. 

PROCEDURE READSOLUT I ONF I LE read the data from the user file 
and passes them to the program 

PROCEDURE WR I TESOLUT I ONF I LE reads the current user data from 
the problem and writes them to the current user file. 

FILES 

PROCEDURE OPENFILE opens for the first time a file that it 
will keep the data of a new problem. 

PROCEDURE OPENSOLUT I ONF I LE opens for the first time a file 
that it will keep the data of the solution of the problem ( 
one for each user). 

PROCEDURE OPENNORMFILE opens for the first time a file that 
it will keep the data of a new norm. 

UTILITES 

PROCEDURE DISKDATA asks the user if he wants to see a 
predefined problem or norm. 

PROCEDURE DISKSTATUS displays all the existing problems and 
norms of the current directory. 

PROCEDURE READ1 asks the user the name of the problem that 
he wishes to solve. 
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PROCEDURE READS asks the user the name of the norm that he 
wants to use. 

PROCEDURE READS asks the user’ s name. 

PROCEDURE READ4 asks the user’ s password. 

PROCEDURE READS asks the decision method that the user is 
going to use. 

PROCEDURE DATA includes readl, readS, read3, readA. 

PROCEDURE PRIORITYOFCRITERIA permits evaluation of 
evaluation criteria. 

STEP 1 

PROCEDURE CREATEPROBLEM reads the data of a new problem and 
writes them in a file. 

PROCEDURE DISPLAY displays the data of a problem to the 
screen after the request of the user. 

PROCEDURE CORRECTDATA corrects the data of the problem in 
case of an error occurs. 



STEPS 

OVERLAY PROCEDURE NORMDEFINITION reads the data of a new 
norm and writes them in a file. 

STEPS- 1 

PROCEDURE NORMSELECTION asks the user to select one of the 
existing norms. 

PROCEDURE DISPLAYNORM displays the data of a norm to the 
screen. 

STEPS 

PRIORITYOFCRITERIA is the main program for the evaluation of 
the criteria. 

STEP 3-1 

OVERLAY PROCEDURE EVALUATE includes the evaluation of a set 
of criteria using AHP. 
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OVERLAY PROCEDURE DIRECTI is similar to the previous 
procedure but using direct mode, 

STEP3-2 

PROCEDURE SELECTCRITERI A computes the final weights after 
the computation of all the sets of criteria. 

PROCEDURE FINALCRITERI A gives the user the opportunity to 
reduce the number of the final criteria. 

STEP4 

PROCEDURE SOLVEWITHAHP controls the evaluation to the 
alternatives if the user select : AHP, direct mode, general 
direct mode, and displays the final weights for the 
alternat ives. 

PROCEDURE COMPUTEALTERNATIVES controls the computation of 
the alternatives according to the method that the user is 
going to use. 

STEP4-1 

OVERLAY PROCEDURE EVALUATE1 evaluates a set of alternatives 
using AHP. 

OVERLAY PROCEDURE EVALUATES, upon request, assigns weights 
in a set of alternatives directly (without grading 
previously the criteria). 

OVERLAY PROCEDURE DIRECTEA evaluates a set of alternatives 
using the direct mode. 

STEP4-E 

OVERLAY PROCEDURE ELECTRE evaluates a set of alternatives 
using the ELECTRE method. 

STEP6 

OVERLAY PROCEDURE GDSS computes the group results. 
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B. EFFORT DISTRIBUTION AND MAINTENANCE PROBLEMS 
1 . Ef fort Distri but ion 

The development of the software took approximately 
six man-months- The effort distribution is indicated below: 

TABLE 5 EFFORT DISTRIBUTION 





AHP & 
ELECTRE 


GROUP 

MODULE 


USE OF 
NORM 


DIVISION 
OF TASKS 


Req u i r ernent Ana 1 y s i s 


3 


6 


8 


£ 


Initial Design 


5 




Lj 


5 


Detailed Design 


- 


- 


- 


- 


Coding 


17 


11 


5 


3 


Unit test ing/Debugging 


6 


5 


2 


3 


Test ing Integrat ion 


4 


5 


£ 


£ 


■/. Of the Total time 


35 


30 


£0 


15 



It is worth noticing that the iterative design 

adopted for the development of Co— oP has helped in 

incrementing the functionalities of the software. 

£ - Implement at ion Problems and Maintenance Issues 

(1) Design of Algorithms: 

The understanding of algorithms, conversion of 
algorithm in structured pseudo-codes required 
elaborated design. 

<£> Programming Language: 

Mastering the language adopted for the software 
development has taken a subst ant ial learning effort. 
Window scrolling, overlays, cursor handling — due to 
the limited capabilited of the programming language 
— took a non-negl igible learning effort. 

(3) Debugging logical errors: 

Due to the complexity ofthe data structures, in 
particular, the rnani pul at ionof matrices in the ANP 
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techniques and the integration of multiple-user 
files, testing the correctness of data transfers 
represented an important part in the testing phase. 
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VIII. 



REMOTE MULTIPERSON DECISION MAKING IN MILITARY 



STRATEGIC PLANNING 



A. EXAMPLES OF POSSIBLE USE OF GDSS IN THE MILITARY CONTEXT 
The proposed software is most appropriate for decision 

situations where there is distribution in space and in time. 
Such decision settings are often encountered at various 
high-level decision making in the armed forces as well as in 
the civil government. The example discussed below 
illustrates an decision example that deals with the 
selection of a naval warship. 

B. A HYPOTHETICAL EXAMPLE 

To exemplify the potential usefulness of the developed 
software, this section describes a hypothetical example. The 
latter consists of selecting a naval ship. Two scenarios are 
discussed below. The first one assumes a multiple-user 
decision situation where there is an exclusive division of 
tasks at upper-level decision. In other words, each group 
member is assumed to have special expertise and is assigned 
to evaluate the alternatives according to the decision 
criteria closely related to his knowledge. The second 
scenario illustrates a group decision situation where 
collective assessment at the staff level is performed. In 
other words, each group member has his/her opinions on the 
entire set of evaluation criteria. 

SCENARIO 1: DIVISION OF TASKS AT UPPER-LEVEL DECISION 

(1) Decision alternatives: 

Naval ships can be bought from three countries: the 
United Kingdom, the Netherlands and West Germany. 
This example concentrates on a particular class of 
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<£> 



(3) 



(4) 



(5) 



warship, i.e. , the Corvette- For the purposes of 
this scenario, the speci f icat ions of the three ships 
are given in Tables 6 and 7. 

Deci si on makers : 

Decision makers include the chief of the weapon 
department, the chief of the engineering department 
and the chief of the electronics depart merit . A1 1 of 
the above officers are under the command of the 
chief of department of new construct ors, a Real 
Admiral . Each of the officers has specific expertise 
in the performance evaluation of the ship 
candidates. The chief of the weapon department, 
officer enjoys however the highest decision power. 
It is assumed that the decision makers operate under 
more or less complete information about the ships. 
Each decision maker has a technical staff of his own 
that performs detailed surveys of the 
characteristics of the ships. 

Decision making norms: 

To get started, a member of the decision group has 
to define the decision norms. It is assumed that the 
chief of the weapon department takes this 
responsi bi 1 i ty. As discussed in Chapter V, the group 
leader sets different distributed computer-based 
communications norms. Figure 4 is an actual display 
screen of the interactive norm definition process. 

Decision making procedures: 

The evaluation process is broken down to group 
members. Each decision member has the exclusive 
right to assess the alternatives ^ccordinq to the 
criteria that are related to his expertise. 

Evaluat ion Criteria: 



For the sake of simplicity, this example excludes 
political and economical issues that in real-life 
situations often play an important role in the 
selection process. The evaluation criteria are 
grouped in four sets: ’ gun systems’ , ’ electronics’ , 

’engine’ and ’cost’. The latter are respectively 
analyzed by officer chief of the weapon department, 
the chief of the engineering department and the 
chief of the electronics department. Such a division 
of evaluation task is motivated by 
each of the officers detains unique 
field. Figure 5 lists the criteria 
ship selection problem. 



the fact that 
expertise their 
chosen for the 
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TABLE 8 SPECIFICATIONS OF THE WAR SHIPS 





GERMANY, FEDERAL 


NETHERLANDS 


UNIT. KINGDOM 


TYPE 


TYPE 1££ 


TYPE 


TYPE £1 


D I SPL 
(tons) 


3600 — Full load 


3050 — Standard 
3630 - Full load 


3000 - Standard 
3700 - Full load 


DIMENSION 

(ft) 


1 30 x 14. 5x6. 5 


1 30. 5x14. 4x6. 6 


1 33x 15x43 


AIRCRAFTS 


£ Lynx helicopter 
with ADS IQ sonar 


£ AB £1£ ASW 
hel i copters 


£ Lynx helicopter 


MISSILES 


SSM:8 Harpoon 
SAM: 1—8 Sea Spar 
£ rnult sting 1 aun 
chers ; £ RAM ASDM 


SSM:4 Harpoon 
SAM: NATO Sea 
Sparrow PDMS 


SSM :S Harpoon 
SAM : Sea wolf VLS 


GUNS 


l-76rnrn/6£ ; 

Breda 105 mm £0 
tube rocket laun 


£-76 rnrn/62 
Compact 


1-4.5 in 55 MkS 
C/WS : £—30 rnrn 
Goalkeeper 


A/S 

WEAPONS 


4 MkE; 36 torpedo 
t ubes 


4 MK£ torpedo 
fot Mk 46 torp 


6 STWS torpedo 
t ubes 


MAIN 

ENGINES 


£ GE-LM £500 
Gas Turbines 
£ MTU £0V 956 
TB9£ Diesels 


£ Rolls-Royce 
TM3B Gas Turb 
£ Rolls-Royce 
RM1C Gas Turb. 


£ Rolls-Royce 
SMI A Gas Turb. 

4 Paxrnan Oalenta 
Diesels 

£ Gee Electr Mot 


SPEED 

(KNOTS) 


30 knots 


30 knots 


£8 knots 


RANGE 
(rni les) 


4000 

at 18 knots 


4700 

at 16 knots 


7800 

at 15 knots 


COMPLEMENT 


£04 


176 


143 



TABLE 7 SPECIFICATIONS OF THE WAR SHIPS 



FEDERAL, GERMANY 
RADAR 



1. SURVEILLANCE : 

£. SEA WOLF GUIDANCE 
3. NAVIGATION 



Type 996 , Plessey AWS - 5 

plus AWS - 6 

Two Mar cony Type 191 

One Kelvin Huges Type 1007 



SONAR 



Type £050 ( Bow Mounted ) 
Type £031 ( Towed array ) 

UNITED, KINGDOM 

RADAR 



1. SURVEILLANCE 


HSA 


DA 08 


£. FIRE CONTROL 


HSA 


WM £5 and STIR 


3. NAVIGATION. 


SMA 


3RM £0 



SONAR 



Active Passive Atlas DSQS £1 BZ and BO 
NETHERLANDS 
RADAR 



1. SURFACE SURCH 


One 


DA 


- 


08 


£. FI RE CONTROL 


One 


LW 


- 


08 




One 


WM 


£5 


SYSTEM 




One 


STIR 




3. NAVIGATION 


One 


zw 


- 


06 



SONAR 



SQS — 505 Bow Mounted 



(6) Individual Prioritization of Evaluation Criteria: 

As discussed earlier, Co-oP currently provides two 
modes for individual priorit ization of evaluation 
criteria. Each group member can choose any 
combination of these two modes. For this example, 
the chief of the weapon department, the chief of the 
engineering department and the chief of the 
electronics department respectively chose the AHP, 
direct, and direct methods. Figures 7 to 16 
successively display the outputs of the 
pr ior i t i zat ion process of the three decision makers. 
In order to reduce the numberf evaluation iteration, 
the criteria that score low values are eliminated 
(Figure 17) . 

(7) Individual Evaluation of Alternatives 

To support the individual evaluation of 
alternatives, three methods are supported by Co-oPs 
direct assessment, AHP and ELECTRE. The results of 
this process are given in Figures 18 to ££. 

(8) Group Result 

The group result is displayed in Figure £3. It is 
a combination of the outcomes generated by three 
decision makers. Figure £3 suggests that TYPE3 is 
the best one, with an overall score of .34. 



SCENARIO £ : COLLECTIVE ASSESSMENT AT THE STAFF LEVEL 

To illustrate the Co—oP ability to handle group decision 
making situations where division of evaluation tasks does 
not apply, this scenario is identical to the first one with 
the exception in that there are only four evaluation 
criteria. Furthermore, these criteria are used by all 
decision members for evaluating alternatives. 

(1) Decision alternatives: Same as in Scenario 1 

(£) Decision makers: Same as in Scenario 1 

(3) Decision making norms: 

Figure £4 is an actual display screen of the 
interactive norm definition process. 

(4) Decision making procedures: 

Unlike in scenario 1, each decision member assesses 
the alternatives according to all of the criteria 
that are defined for the problem (See Figure £5). 
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(5) 



( 6 ) 



(7) 



( a ) 



Eval uat ion Cr i ter ia : 



For the sake of simplicity, this example retains 
only four principal criteria, i.e. , ’ gun systems’, 

’ electronics’ , ’engine 1 and ’cost 1 . 

Individual Prior it izat ion of Evaluation Criteria: 



Figures 27 
pr ior i t i zat 
In order 
i terat ion, 
el irninated 



and 28 display 
ion process of the 
to reduce the 
the criteria that 
(Figure 29) . 



the 

first 

number 

score 



outputs of the 
decision maker. 

of evaluation 
low values are 



Individual Evaluation of Alternatives 



The results of this process are given in Figures 30 
to 41. 



Group Result 

The group results are displayed in Figure 24 
(computed by the Direct Mode) and Figure 25 
(computed by ELECTRE). With the direct mode, TYPE 2 
is first in all aggregation of preferences 
techniques, including the surns-of-the-ranks, the 
additive ranking, the multiplicative ranking and the 
sum-of-outranking~relat ions. This result is 
confirmed by the ELECTRE mode. Note that in the 
latter mode, only the surns-of-the-ranks and sums— of— 
outrankings relations are computed. 
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IX- CONCLUSIONS 



This thesis was concentrated on the extension of a the 
Co-oP decision support system for multiple criteria group 
decision making. The development focused in the creation of 
a computer-based communications framework for supporting 
decision making situations that are distributed in time and 
in space. The software is written in Pascal and is 
operational in a network of three personal computers. 

ft naval warship selection problem was discussed to 
illustrate the usefulness of the implemented group decision 
support system. 

However, the proposed decision suppport system can only 
be applied to a certain class of decision situations. In 
effect, the decision makers are assumed to be cooperative, 
and knowledgeable about multiple criteria decision making. 
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APPENDIX ft 



THE PROGRAM LISTING 



PROGRAM GDSS ( INPUT , OUTPUT ) ; 

-C$v-, r-> 

LABEL 

riorrndef , back, so 1 ve 1 , so 1 vecl, so 1 ve3, 
telos , create , gdssl,nai, 10 , £0 

CONST 
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si z e 


= 


£5 ; 


posit ionl 


= 


5 ; 


pos i t i one: 


S3 


13 ; 


posit ion3 


= 


21 ; 


maxcr it 1 


= 


5 ' ; 


maxcr it S 


S3 


5 ; 


rna xcr it 3 


= 


s ; 


windows 


= 


3 ; 


number 


s 


array C 1 . 



1 .. Windows, 1 .. 43 of Integer 



< ( 






73 , 


13 


> , 


( 


s, 


15, 


78 , 


£1 


> , 


( 


c. 


^ 3 , 


73 , 


£4 


) > ; 



TYPE 



name 


= 


st ring 


CsizeD ; 








ask 


=3 


string 


C53 ; 








co 1 or 


= 


string 


C£8D ; 








n urn 3 


= 


array 


Cl.. Maxcr i t 1 , 


1 . . Maxcr it 1 3 


of 


integer 


level 


= 


array 


Cl.. Maxcr i t 1 , 


1 - - Maxcr i t 1 3 


of 


name ; 


vect ors 


=3 


array 


Cl.. Maxcr it 1 , 


1 - - Maxcr it 1 3 


of 


real ; 


mat r i x30 


=3 


array 


Cl.. £0, 1 . . £0 


3 of real ; 






arayl 


= 


array 


Cl. . 9, 1. . 93 o 


f real ; 






Title 


= 


array 


Cl.. Maxcr i t 1 3 


of name ; 






nurn 1 


=3 


array 


Cl.. Maxcr i t 1 3 


of integer 






vectors 1 


S3 


array 


Cl.. Maxcr i t 1 3 


of real ; 






vect or g 


=3 


array 


Cl..l£53 of 


name ; 






vect orn 


=3 


array 


Cl..l£53 of 


real ; 






vect or f 


3= 


array 


Cl.. £0] of 


rea 1 ; 






tit lei 


3= 


array 


Cl. . £03 of 


name ; 






names 


= 


array 


C 1 . . 63 of name ; 






arrayS 


3= 


array C 1 . . 9, 1 - - SD of 


char ; 






el pida 


= 


array C 1 .. 4U of char 
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Case 1 



record 



narnel : name ; 
nurnof problem, levels, 

numof al ternat i ves , nurnofusers : integer 

levels, level3, level4, level5, 

levels, level7 : level ; 

level 1 s title ; 
sublevel 1 s n urn 1 ; 

sublevelS : nurnS ; 

alternatives : tit lei ; 

end (* record •*) ; 



caseS = record 

p fact or, q fact or : real ; 

numof cr iter ia : integer ; 

nurnof al ternat i ves s integer ; 

alternatives s tit lei ; 

nurnofusers : integer ; 

solved : array C1..3U of boolean ; 

grading : arayl ; 

Completed : boolean ; 

cornpletedal 1 : boolean ; 

vectorl : vectors 1 ; 

vectors, vectors, vect or 4, 

vectors, vectors, vector7 : vectors ; 

normvectorl : vect or g ; 

normvectorS : vectorri ; 

norm index : vect or g ; 

alt matrix : rnatrixS® ; 

finalindex : array [1. . 31 of boolean ; 

Finalindexi : array C1..SU of boolean ; 
Hhp : record 

status : boolean ; 

alt vectorl : vect or f ; 
nurnof tries : integer ; 

end ; 

elect re : record 

status : boolean ; 

outranking : array 9 ; 

nurnof tries s integer ; 

end ; 

end ; (* record *) 

so 1 u t i on 1 = record 

username : name : 
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userid s name ; 
numofcriteria : integer ; 

norrnvectorl : vectorg ; 
nor rn vectors : vectorn ; 
nurnofalternat ives : integer 

alternatives : titlel ; 
ahp : record 

status : boolean ; 
nunioftries : integer ; 

altvectorl : vectorf ; 

end ; 

elect re : record 

status : boolean ; 

nurnoftries : integer ; 

outranking : arrays ; 
end ; 

end ; (-* record * ) 

norm 1 = record 

nurnofusers , 

mod i f yt irnes, 

last time : integer ; 

usersnarnes : nameS ; 

specindex : title ; 

users ids : narne£ ; 

weight : vector si ; 

currentnarne : name ; 

agregat i on, 

na i , 

special i zed, 
broadcast ing, 
modify : boolean ; 

agregat ionname : elpida ; 

end ; (* record *) 



VftR 

problernfile : file of easel ; 

problem ,problerna : easel ; 

speefile : file of case2 ; 

speef i le£, speef i lei : caseS ; 

solution, solut iona : solutionl ; 

solutionfile s file of solutionl 
norm, norma : norml ; 
norm file : file of norm 1 ; 
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basicf i le : text ; 

axz, a, b, c, al, bl, cl, rmrnberx , 

3 1 , 3 d, 3o, a j , pu ^ ax, bl, ab, 
w, e, i , j , k, 1 , f , code, aa, 

1 ine, posit ion, levels, rnal 1 , 

numof al t ernat i ves, x 1 , y 1 , codel , 

male!, count, rmrnofcr i ter ia, count irnes : integer 

precent , sum, integer 1 , score, rowl s real ; 
arrays : title ; 

alt ernat ivesl , alt ernat ivesx s titlel ; 
extension, prnarnel, pruser, answer , 
norrnnarne, answer 1, narnex, idx, 

problname, met hod x, prnarne, pruserS, specnarne : 
vectors, vectors, vect or 4, 
vectors, vectors, vector7 : vectors ; 
alt matrix : mat r i xSlZi ; 



vect or 1 , vect ort an : vectorsl ; 

alt vect or x, alt vect or, alt vect or 1 : vect or f ; 

choice, ch : char ; 

answers : ask ; 

colorl, criterial, criteriaS : color ; 
array 1 : numl ; 

matrix 1 , result : nurnS ; 
norrnvectorl, exchangel s vectorg ; 
norrnvectorS, norrnvect orS, exchanges : vectorn 
error : boolean ; 

string 128, string 1SS : stringClSSJ ; 
inte : stringC103 ; 
index, indexS : boolean ; 

-C$1 DIRLIST1. PAST 
-C$1 D I RL I STS. PAST 
C$1 PROCED. PAS > 

■C$1 STEP 1 - PAS > 

-C$1 FILES. PAS T 
■C$1 STEPS. PAS > 

-C$1 STEPS. PAST 
■C$1 STEPS- 1. PAST 
■C$1 STEPS” 1. PAST 
-C$1 STEPS— S. PAST 
<$I STEP4-1 . PAST 
■C$1 STEP4-S. PAST 
■C$1 UTILITES. PAST 
■C$1 STEPS. PAST 
-C$1 STEP4. PAST 

BEGIN (* main program *) 

back s 

window ( 1,1,80,23) ; 

text background ( 14 ) -, 






name ; 



* 
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clrscr ; 

window ( 1,24,80,25) ; 

text background ( white ) ; 

elrsor ; 

text co lor ( black ) ; 

gotoxy ( 2, 1 ) ; 

write ( ’multiple criteria group dss - main menu ’ ) ; 

window ( 1,1,80,23) ; 

text col or ( blue ) ; 

text background ( 14 ) ; 

gotoxy (3,2) ; 

write ( ’ main menu ’ ) ; 

gotoxy ( 3, 4 ) ; 

write (’1. Multiple criteria group problem def ini t ion’ ) ; 
gotoxy ( 3, 6 ) ; 

write ( ’ 2- Group norm definition ’ ) ; 

gotoxy ( 3, Q) ; 

write ( ’3. Priorit izat ion of evaluation criteria ’ ) ; 

gotoxy ( 3, 10 ) ; 

write ( ’4- Individual evaluation of alternatives ’ ) ; 

gotoxy ( 3, 12 ) ; 

write ( ’ 5- Direct input of the data ’ ) ; 

gotoxy (3, 14) ; 

write ( ’ 6. Computation of group decision ’ ) ; 

gotoxy (3, 16) ; 

write (’7- I dent i f i cat i on of negotiable alternatives ’ ') 

gotoxy ( 3, 18 ) ; 

write (’ Q. Help ’ ) ; 

gotoxy (3, 20) ; 

write ( ’ 9- Exit ’ ) ; 

text co lor ( black ) ; 

repeat 

gotoxy ( 3,22) ; 

cl reel ; 

write (’ enter a number : ’ ) ; 

read ( answer ) ; 

val ( answer , count , code ) ; 

until ( ( 0 < count ) and ( count < 10 ) and ( code = 0 ) ) 

case count of 



1 


g o t o 


create 


c. 


got o 


normdef 


o 


g o t o 


solvel 


4 


g o t ci 


solveS 


5 


goto 


sol ve3 


6 


goto 


gdssl 


7 


goto 


na i 


8 


got o 


back 


9 


goto 


tel os 



end 
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<* problem definition *) 
create : 

stringl£8 := ’ step 1 : problem definition ’ ; 

diskstatus ; 

create problem ( problem ) ; 

<* corect the data of the problem *) 
window ( 1,1,30,17) ; 

t ext background ( blue ) ; 

clrscr ; 

text co lor ( white ) ; 

display ( problem ) ; 

window ( 1,13,80,23 ) ; 

text background ( 14 ) ; 

clrscr ; 

window ( 1,24,80,25 ) ; 

text background ( white ) ; 

clrscr ; 

textcolor ( black ) ; 

got oxy (2,1) ; 

write (’step 1: multiple criteria group problem 
def ini t ion ’ ) ; 

gotoxy ( 2, 2) ; 

write ( ’ correct the data of the problem ’ ) ; 

window ( 1,13,80,23 ) ; 

text background ( 14 ) ; 

clrscr ; 

textcolor ( black ) ; 

correctdata( problem ) ; 

clrscr ; 

window ( 1,1,80,17) ; 

text background ( blue ) ; 

clrscr ; 

textcolor (white ) ; 

displayl ( problem ) ; 

window ( 1,18,80,2 3 ) ; 

text background ( 14 ) ; 

clrscr ; 

textcolor ( black ) ; 

correct dat a 1 (problem ) ; 
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openfile ( prnarne ) ; 

wr i t eproblernf i le ; 
goto back ; 

(* norm definition *) 
norrndef : 

string 128 := ’ step £ s norrndef in it ion ’ ; 

diskstatus ; 

norrndef in it ion ; 

o pennor rn file ( riorrnnarne ) ; 

writ enorrn file ; 

goto back ; 

<* priority of criteria *) 
solvel s 

pr i or i t yo f cr iteria ; 
goto back ; 

(* evaluation of alternatives *) 
sol ve2 : 

computeal t ernat i ves ; 
goto back ; 

(•* direct input of the data -*) 
so 1 ve3 : 

stringi28 : = ’step 5 s direct input of the weights’ 
diskstatus ; 
clrscr ; 

window ( 1,24,80,25) ; 

text co lor ( black ) ; 

text background < white ) ; 

gotoxy ( 2, 2) ; 

clreol ; 

write ( ’ ident i f icat ion of the problem ’ ) ; 
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window ( 1,13, 80, £3) ; 

text background < 14 ) ; 

clrscr ; 

read 1 ; 

read pro blernfi le ; 
read£ ; 

read norm f i le 5 
read3 ; 



if ( not exist (pruser) ) then 
beg i n 

solution. ahp. status := false 5 
solution. electre. status := false ; 
so 1 ut i on- ahp. nurnoft r i es : = 0 ; 

sol ut ion. electre. nurnof tries : = 0 ; 

Qpensolut ionf i le ( prLiser ) 
end ; 



readsol ut ionf i le ; 



n li m ofcriteria 
n umo fcr iteria 
normvectorl 
normvect orS 



= solution. Nunio fcr iteria 
= so 1 Lit i on - Nunio fcr i t er i a 
= sol Lit ion. Normvectorl 
- sol Lit ion. Normvect orS 



read4 ; 

writenorrnf i le ; 



count imes : = solution. Ahp. Nurnof tries ; 

i f norm. Mod i fy then 

begin 

i f co Lint imes < norm. Modi fyt imes then 
begin 

count imes := count imes + 1 ; 

index : = true 5 
solvewithahp 5 
end 
e 1 se 
beg i n 

clrscr ; 
gotoxy ( 5, 9) ; 

write ( ’you cant modify your output 
gotoxy ( 5, 10 ) ; 

write ( ’hit any key to continue ’ ) 
read < kbd,ch ) ; 
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then 



goto back ; 
end ; 

end 
else 
beg in 

if count i rues = 
beg i n 

count i rues : = countimes + l • 
index := true ; 
solvewithahp ; 
clrscr ; 
end 
else 
begin 

clrscr ; 

got oxy ( 5, 9) ; 

write ( ’you cant modify your output ’ ) ; 

got oxy ( 5,10 ) ; 

write ( ’hit any key to continue ’) ; 

read ( kbd, ch ) ; 

goto back ; 
end ; 
end ; 

goto back ; 

(•* gdss *> 
gdssl : 

stringl20 := ’step 5 : computation of group result 
stringl29 := ’ ’ ; 

diskstatus ; 

data ; 

readproblernf i le ; 

if norm- special i zed Then 

begin 

if ( not exist ( specnarne ) ) then 

beg in 

clrscr ; 

got oxy ( 2, 2 ) ; 

write ( ’the problem is not yet solved ’ ) ; 

got oxy ( 2, 4 ) ; 

write ( ’hit any key to continue ’ ) ; 

read ( kbd , ch ) ; 

goto back ; 
end ; 
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readspecfile ; 

i f ( (specf i 1 e2. Cornpletedal 1 ) and 

(specf i 1 e2. elect re- Status) ) then 
beg i n 

window (1,1,80,23) ; 

text background ( blue ) ; 

clrscr ; 

window ( 1 , 24, 80, £5) ; 

text background ( white ) ; 

clrscr ; 

textcolor < black ) ; 

got oxy (2,1) ; 

write ( ’step 6 : computation of group decit ion ’ ) ; 

got oxy ( 2,2) ; 

write ( ’ f inal result (electre) - specialized mode ’ ) ; 

window (1,1,80,23) ; 

text background ( blue ) ; 

c 1 rscr ; 

textcolor ( white ) ; 

for a : = 1 to specf i le2. Nurnofalternat ives do 
begin 

answer := specf i le2. ftl temat ives Ca] ; 
delete ( answer, 4, length ( answer ) ) ; 

got oxy ( 2, a + 3) ; 

write ( answer s 4 ) ; 

end ; 

for a := 1 to specf i le2. Nurnofalternat ives do 
beg in 

answer := specf i le2. fllternat ives Cal! : 
delete ( answer, 4, length ( answer) ) ; 

got oxy ( 5 + ( a * 5 ) , 3) ; 

write ( answer:3 ) ; 

end ; 

for a : = 1 to specf i le2. Nurnofalternat ives do 
begin 

for b : = 1 to specf i le2. Nurnofalternat ives do 
beg i n 

got oxy (5+(b*5),a+3) ; 

write (specf i le2. Electre. Outranking Ca, bU ) ; 

end ; 
end ; 

textcolor ( green ) ; 

got oxy ( 5, 10 ) ; 

write (’*•* an outranking relation * is the ’ ) ; 



66 



1 ) ; 



gotoxy 


( 


5, 


1 1 


) 




wr i t e 


<’ 




one 


that satisfies both concordance 


got oxy 


( 


5 , 


12 


) 




wr i t e 


(’ 




and 


discordance requirements. ’ ) ; 


Gotoxy 


( 


5, 


1 0 


) 




write 


(’ 




an 




- indicates that there is ’ ) ; 


gotoxy 


( 


5 , 


14 


) 




write 


(’ 




no 


0 


■utranking relations. 1 ) ; 


Gotoxy 


( 


5, 


16 


) 




write 


( 


’hit any 


key to continue 1 ) ; 


read ( 


kbd , 


ch 


) 





end ; 

if ( (specf i le£. Complet edal 1 ) and (specf ile 2 . flhp. Status )) 

then 
begin 

altvectorl : = specf i le 2 . Ah p. flit vector i ; 

window (1,1,30,23) ; 

t ex t background ( blue ) ; 

clrscr ; 

window (1,24,30,25) ; 

text background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

got oxy ( 2 , 1 ) ; 

write ( ’step 6 : computation of group decit ion ’ ) : 

got oxy ( 2, 2) ; 

write ( ’ f inal result (ahp) - specialized mode 1 ) 5 

window (1,1, 80, 23) ; 

t ex t background ( blue ) ; 

clrscr ; 

text co lor ( white ) ; 

gotoxy ( 2 , 3 ) ; 

write ( ’ final solution ’ ) ; 

for al := 1 to problem. Nurnofalternatives do 
beg i n 

text col or ( white ) ; 

gotoxy ( ( ( 5 * al ) ) , 19 ) ; 

wr i t e ( co py ( pro b 1 em. ft 1 1 ernat i ves CaiU,l,j>) ) 5 

gotoxy (( (5* al)), 20 ) ; 

text co lor ( red ) ; 

write ( a 1 t vect or 1 Ca 1 1 : 3 : 2 ) ; 

end ; 

t ex t background ( red ) ; 
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problem. Numof a 1 t ernat i ves do 



for al s = 1 to 
begin 

gotoxy ( (5 + ( 5 * al ) ) , 17 ) ; 
for bl := 1 to round ( altvectorlC 
begin 

gotoxy ( ( ( 5 * al )) ,(17 —bl) 

write ( ’ ’ ) ; 

end ; 
end ; 

text background ( blue ) ; 

gotoxy ( £, 22) ; 

write ( ’hit any key to continue 1 ) ; 

read ( kbd , ch ) ; 

end 

else 

clrscr ; 
gotoxy ( 2, £ ) ; 

write ( ’the problem is not yet solved 
gotoxy ( 4, 2 ) ; 



end 

else 

gdss ; 

goto back ; 

<■* nai *) 

na i : 



(* not avaiable yet *) 
goto back ; 



tel os : 



END . <* MAIN PROGRAM *) 

INCLUDE FILE STEP1 



PROCEDURE CREATEPRQBLEM ( var problem : 
LABEL 

10, 20 , 30 ; 

VAR 

axz : integer ; 

strl, str2 : name ; 
codel : integer ; 



13 * 10 ) do 

) ; . 



’ > 5 



easel ) ; 
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BEGIN 



text mode ( c80 ) ; 

clrscr ; 
gotoxy ( 1,S) ; 

clear 1 ( problem ) ; 

problem. Levels := 0 ; 
for c := 1 to 5 do 

problem- Sublevel 1 Zcl : = 0 ; 
for c := 1 to 5 do 
begin 

for b : = 1 to 5 do 

problem. Sublevel 2 Cc, b] := 0 ; 

end ; 

text background ( black ) ; 

text co lor ( white ) ; 

window ( 1,1, 80,23) 5 

text background ( 14 ) ; 

clrscr ; 

window ( 1,24,80,25) ; 

t ext background ( white ) ; 



clrscr ; 

text co lor ( black ) ; 

gotoxy (2,1) ; 

write (’step 1 s multiple criteria group 
def ini t ion ’ ) ; 
gotoxy ( 2 , £ ) ; 

write ( ’definition of alternatives * hit 



window ( 1,1,80,23) ; 

text background ( 14 ) ; 

clrscr ; 

gotoxy ( 2, 2 ) ; 

text co lor ( black ) ; 

write ( ’ enter the name of the problem 

read ( answer ) ; 

prnarnel := answer ; 

delete (answer, 8 , length (answer) ) ; 

prnarne := concat (answer , ’ . Def’ ) ; 



pro b 1 ern 



q to stop 



’ ) 



? 



) 



problem. Namel := answer ; 



gotoxy ( 


. - . . . W * - 7 

1 , 2 ) ; 


clreol ; 




gotoxy ( 


c! ) | 


write (’ 


name of problem 


1 ine : = 




a : = 0 


■? 


b : = 0 





answer ) ; 
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w : = 1 ; 

position : = 1 ; 

c : = 0 ; 

gotoxy ( 1,1 ine ) ; 

clearscreeri ( line ) ; 

gotoxy ( 3 , 4 ) ; 

write ( ’ enter the alternatives s’); 

a5 : = 0 ; 

while (( answer <> ’ q’ ) and ( a5 < 19 ) ) do 
begin 

gotoxy ( 42, ( 4 + a5 ) ) ; 

a5 : = a5 + 1 ; 

write ( ’ ’ , a5, ’ . ’ ) ; 

Read ( answer ) ; 

answer := st upcase (answer ) ; 

problem. fllternat ives Ca5] := answer ; 
end ; 

problem. Nurnofalternat ives 2 = a5-l ; 

for a5 := 1 to 10 do 

begin 

gotoxy ( 1, a5 + 2 ) ; 

clreol ; 

end ; 

window ( 1,24,30,25) ; 

t ex t background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

got oxy ( 2 , 1 ) ; 

write (’step 1 : multiple criteria group problem 

def ini t ion ’ ) ; 
gotoxy ( 2 , 2 ) ; 

write (’definition of criteria * 1 ) st level 2 ) rid level 

3)nd level q)uit’ ) ; 

window ( 1,1,30,23) ; 

t ex t background ( 14 ) ; 

text co lor ( black ) ; 

repeat 

got oxy ( 3, 1 ine ) ; 

write ( ’ enter the number of the level : ’ ) 5 

read ( answer ) ; 

answer := st upcase ( answer ) ; 

1 ine s = 4 ; 
del line ; 

until (answer = ’ 1 ’ ) or (answer = ’2) or (answer = ’ 3’ ) ; 

while answer <> ’ q’ do 

begin 

clearscreeri ( line ) ; 
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then 



i f answer = 1 1 1 
begin 

gotoxy (5, 1 ine) ; 
clreol ; 

10 : 

position : = posit i on 1 ; 

clearscreen ( line ) ; 

text co lor (blue) ; 
gotoxy ( posit ion, line) ; 
text co lor (blue ) ; 

write (a+ 1 , ’ . 1 ) ; 

Got oxy ( posit ion + 3 , line ); 

read ( answer ) ; 

answer := st upcase ( answer ) ; 

if ( answer <> ’2’ ) and ( answer <> ’3’ ) 
and ( answer <> q 1 ) and (answer O’ 1’ ) 
beg in 

a : = a + 1 ; 

problem. Level 1 C a 1 : = answer ; 

line := line + 1 ; 

b : = 0 ; 
goto 10 
end ; 
end ; 

problem. levels := a ; 

If answer = 1 S’ then 

beg in 

gotoxy ( 5, 1 ine ) ; 

clreol ; 

text co lor ( 14 ') ; 

position := positions ; 

20 : clearscreen ( line ) ; 

text co lor ( red ) ; 

gotoxy ( posit ion, 1 ine ) ; 

write (a, ’ . 1 , b+1 ) ; 

Gotoxy ( position + 5 , line ) ; 

read ( answer ) ; 

answer := st upcase ( answer ) ; 

if ( answer <> ’ 1 ’ ) and ( answer <> ’3’ ) 

and ( answer <> ’ q’ ) and ( answer <> ’ 

beg in 

b : = b + 1 ; 

problem. Levels C a, b 3 : = answer ; 

line := line + 1 ; 

c : = 0 ; 

goto 20 ; 

end ; 
end ; 

problem. Sublevel 1 Call := b ; 
if answer = ’3’ then 



then 



) then 
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9 



begin 

got oxy (5, line ) 
clreol ; 
text co lor ( yellow ) ; 

position := positions ; 

30 : cl ear screen ( line ) ; 

text co lor ( yellow ) ; 

got oxy ( position, line ) ; 

write (a, 1 . ’ , b, 1 . ’ , c +1 ) ; 

Got oxy (position + 7 , line ) ; 

read ( answer ) ; 

answer := st upcase ( answer ) ; 

while answer = ’ 3’ do 

begin 

gotoxy ( position +7 , line ) ; 

c 1 reo 1 ; 

read ( answer ) ; 

answer := st upcase ( answer ) ; 
end 5 

if ( answer <> ’3’ ) and ( answer <> 1 1 ’ ) 



and 


( answer < > ’ q 9 ) 








begin 










c : = 


c +1 ; 








case 


a of 








1 : 


problem- Level 3 Cb, 


cl 


= answer 


9 


c. z 


prob 1 em. Level 4 Cb, 


cl 


= answer 


5 


u z 


problem. Levels Cb, 


cl 


= answer 


9 


4 : 


problem- Level 6 Cb, 


cl 


= answer 


9 


5 : 


problem- Level 7 Cb, 


cl 


= answer 




1 i ne 


: = 1 i ne + 1 ; 








g o t ci 


30 









end ; 
end ; 

problem. Sublevelc'Ca, b] := c ; 
end ; 

window (1,1,30,35 ) ; 

clrscr ; 

END ; 



PROCEDURE DISPLAY ( problem : easel ) ; 

VAR 

line , a , b , c , col 1 , col 3, col 3 : integer ; 

change s boolean ; 
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BEGIN 



got oxy (3,1) ; 

text co lor (white ) ; 

1 i ne s = £ ; 

coll : = £ ; 

change := false ; 

for a : = 1 to problem, levels Do 

begin 

if ( length ( problem, level 1 Cal ) > 1 ) Then 

begin 

text co lor (white) ; 
if ( line > 14 ) then 

beg i n 

col 1 : = coll + 30 ; 

1 i ne : = 2 ; 
change := true ; 
end ; 

if ( ( line > 14 ) and ( change ) ) then 

beg i n 

coll := coll + 60 ; 
line := £ ; 
end ; 

got oxy ( coll, line ) ; 

writeln (a, ? , Problem, Level 1 Cal ); 

1 i ne : = 1 i ne+ 1 ; 

for b := 1 to problem. Sublevel 1 Cal do 
begin 

text co lor ( red ) ; 

if (length ( probl em, Level £ Ca, bl ) > 1 ) 

beg i n 

if ( line > 14 ) then 

beg i n 

coll := coll + 30 ; 

1 i ne : = £ ; 
change := true ; 
end ; 

if ( ( line > 14 ) and ( change ) ) 

begin 

coll := coll + 60 : 
line : = £ ; 
end ; 

gotoxy ( col 1 + 1, 1 ine ) ; 

wr i te (a, ’ . ’ , B, ’ ’ , problem. Level £ Ca, 

line := line *+* 1 ; 

for c:=l to problem. Sub level£ Ca, bl 
begin 

text co lor ( yellow ) ; 



then 



then 



bl ) ; 
do 
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case a of 

1 : begin 

if (1 ength ( prob 1 ern. Leve 13Cb,c3)>l) then 
beg in 

if ( line > 15 ) then 

begin 

coll := coll + 30 ; 
line : = 3 ; 
change : = true ; 
end ; 

if ((line) 14) and (change)) then 
beg i n 

coll : = col 1 + 60 ; 

1 ine s = £ ; 

end ; 

gotoxy ( col 1 + 2 , line ) ; 

write (a, , . , ,B, , . , ,C, , 

prob 1 ern. Leve 1 3 C b, cl ) ; 

1 ine s = 1 ine + 1 ; 

end ; 
end ; 

2 : begin 

if ( 1 ength ( prob 1 ern. Level 4 C b, cU ) > 1 ) then 
begin 

if ( line > 15 ) then 

begin 

col 1 : = col 1 + 30 ; 

1 ine : = £ ; 

change := true ; 
end ; 

if ( ( line > 14 ) and ( change ) ) then 

beg in 

coll : = coll + 60 ; 

1 ine : = £ ; 
end 5 

gotoxy ( coll+ 2 , line ) ; 

write (a, ’ . ’ , B, ’ . ’ , C, ’ ’ , 

problem. Leve 14 Cb, cl ) ; 

1 ine : = 1 ine + 1 ; 

end ; 
end ; 

3: begin 

if ( length ( prob 1 ern. Leve 1 5 C b, cU ) > 1 ) then 
beg in 

if ( 1 ine > 15) then 

beg i n 

coll := coll + 30 ; 

1 ine : = £ ; 
change : = true ; 
end ; 
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if ( ( line > 14 ) and (change)) 

begin 

coll : = coll + 60 ; 
line : = 2 ; 
end ; 

gotoxy ( col 1 + 2 , line) ; 

write (a, ’ . 7 , B, 7 . 7 , C , 7 7 , 

problem. Level 5 Cb, cl ) ; 

1 ine : = 1 ine + 1 ; 

end ; 
end ; 

4: begin 

if ( length ( problem. Levels Cb, c3 ) > 1 ) 

begin 

if ( line > 15 ) then 

begin 

coll := coll + 30 5 
line := 2 ; 
change := true ; 
end 5 

if ( ( line > 14 ) and ( change ) 

beg in 

‘ col 1 : = col 1 + 60 ; 

1 ine : = 2 ; 

end ; 

gotoxy ( col 1 + 2 , line ) ; 

write (a, 7 . 7 , B, ’ . ’ , C, ’ 7 , 

problem. Level 6 Cb, c] ) ; 

line := line + 1 ; 

end ; 
end ; 

5: begin 

i f ( 1 engt h ( prob 1 ern. Leve 17Cb,c3)>l) 

beg in 

if ( line > 15 ) then 

beg in 



coll := coll + 30 , 

1 i ne : = 2 ; 
change := true ; 
end ; 

if ( ( line > 14 ) and ( change ) 

begin 

coll : = coll + 60 ; 

line : = 2 ; 
end ; 

gotoxy ( coll+ 2 , line ) ; 

write (a, , .’,B, , .’,C , 7 7 , 

problem. Leve 17 Cb, cl ) ; 

1 ine : = 1 ine + 1 ; 



then 



then 



) then 



then 



) then 
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end ; 
end 5 
end 5 
end ; 
end ; 
end ; 
end ; 
end ; 

END ; 

PROCEDURE PI SPLAY 1 ( problem : easel ) ; 

VAR 

line s integer ; 

BEGIN 

gotoxy (3, 2) ; 

text color (white ) ; 

write < ’ alternatives : ’ ) ; 

for line := 1 to problem, nurnof a 1 ternat i ves Do 
begin 

gotoxy ( 4, line + 3 ) ; 

write (line,’. problem. al ternat i ves C 1 i nel ) ; 

end ; 

END ; 



PROCEDURE CORRECTDATA ( var problem : easel ) ; 

BEGIN 

repeat 

gotoxy ( 1,2 ) ; 

write (’do you want to modify the criteria (y/n) ? ’); 

Repeat 

gotoxy (47, 2 ) ; 



clreol ; 

read ( answer ) ; 

answer := st upcase ( answer ) ; 

until ( ( answer = ’ y’ ) or ( answer = ’ n’ ) ) ; 

if answer = 1 y’ then 
beg i n 

gotoxy (1,4) ; 

write (’enter the tree level ( e. g. , 2.1.3 ) ?’ ) ; 

Gotoxy ( 47, 4 ) ; 

read (answer2) ; 
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answer^ stupcase (answer'S) ; 
gotoxy ( 1,6 ) ; 

write ( ’ name of criteria 1 , answers ) ; 

gotoxy ( 43, 6 ) ; 
write ( ' ?’ ) ; 

Gotoxy (47, 6) ; 

read ( answer 1) ; 

w : = 1 ; 

convert ( answers, w, dl) ; 
al := dl ; 
w : = 3 ; 

convert ( answers, w, dl ) ; 

bl := dl ; 
w := 5 ; 

convert ( answers, w, dl ) ; 

cl : = d 1 ; 

if (cl =0 ) and (bl = 0 ) and ( al <> 0 ) then 

prob 1 ern. Leve 1 1 Ca 1 3 : = stupcase ( answerl) : 

if ( al > problem, levels ) Then 

problem. Levels := problem. Levels +1 ; 

if cl = 0 then 
begin 

problem. Levels Cal , bl 3 := stupcase ( answerl) ; 

if ( bl > problem. Sublevel 1 [all ) then 
problem. Sublevel 1 Ca 1 3 : = problem. Sub 1 eve 11 Ca 1 3 + 1 

end 
e 1 se 
beg i n 
case 
1 : 

£: 
vi : 

4: 

5: 
end ; 

if ( cl > problem. SublevelS Cal , bl 3 ) then 

problem. Sub 1 evelSCal , bl 3 : = prob 1 ern. Sub leve IS 1 , bl U +1 

end ; 

gotoxy ( 47, S ) ; 

clreol ; 

gotoxy (47, 4 ) ; 

clreol ; 

gotoxy ( 47, S ) ; 

clreol ; 

al:=0;bl:=0;cl:=0; 
end ; 

unt i 1 answer = ’ n’ ; 

END ; 



al 

prob 1 ern. 

problem. 

problem, 

problem 

problem 



of 

Level3Cbl , cl 3 
Level4 Cbl , ell 
Leve 1 5 C b 1 , c!3 
. LevelSCbl, cl3 
. Leve 1 7 C bl , cl3 



st upcase ( 
st upcase ( 
st upcase ( 
st upcase ( 
st upcase < 



answer 1 ) 
answer 1 ) 
answer 1 ) 
answer 1 ) 
answer i ) 
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PROCEDURE CQRRECTDflTfll ( var problem 



easel ) 



7 



BEGIN 

repeat 

got oxy (1,2) ; 

write (’do you want to modify the alternatives (y/n)?); 
Repeat 

got oxy (52, 2 ) ; 

clreol ; 

read ( answer ) ; 

answer := st upease ( answer ) ; 

until (( answer = ’ y’ ) or ( answer = ’ n’ ) ) ; 

if answer = ’ y’ then 

beg i n 

got oxy ( 1 , 4 ) ; 

write (’enter the number of the alternative (e. g. ,3)?’ ) 
Got oxy ( 53,4 ) ; 

read (answerS) ; 

answer^ : = st upease ( answers ) ; 
got oxy ( 1,6 ) ; 

write (’ name of alternative answers ) ; 

gotoxy (33, 6) ; 
write ( ’ ?’ ) ; 

Gotoxy (37, 6) ; 

read ( answeri ) ; 

val (answers, a, code) ; 

prob 1 ern. a lternat i ves Call : = 3t upease ( answer 1 ). ; 

gotoxy ( 47,2 ) ; 

clreol ; 

gotoxy (47,4 ) ; 

clreol ; 

gotoxy ( 47,6 ) ; 

clreol ; 
end ; 

unt i 1 answer = ’ n’ ; 

END ; 



INCLUDE FILE STEPS 



OVERLAY PROCEDURE NORMDEF INIT ION 
VAR 

xl,yl, limit : integer ; 

count 3 : real ; 
lasthour : stringCSSU ; 
problemnamel : name ; 
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BEGIN 



window ( 1,1, 80, £2 ) ; 

text background ( 14 ) ; 

clrscr ; 

window ( 1,24,80,25) ; 

text background (white ) ; 

clrscr ; 

textcolor ( black ) ; 

got oxy (2,1) ; 

write ( 5 step 2 : group norm definition ’ ) ; 

window ( 1,1,80,22) ; 

text background ( 14 ) ; 

clrscr ; 

textcolor ( black ) ; 

got oxy ( 2,2) ; 

write ( 5 name of the group norm ’ ) ^ 

gotoxy ( 25, 2) ; 
wr i t e ( 1 ? 5 ) ; 

Read ( answer ) ; 

norm. Current name := st upcase ( answer ) ; 

delete ( answer, 8, length (answer ) ) ; 

norrnnarne : = concat ( answer , ’ . Gn’ ) ; 

textcolor ( blue ) ; 

gotoxy ( 2, 4 ) ; 

write ( ’ 1. Identification of group members 1 ) ; 

textcolor ( black ) ; 

got oxy ( 5,6) ; 

write ( ’1-1 Number of group members ( max 3 ) 1 ) 

gotoxy ( 52, 6 ) ; 
write ( 1 ? 1 ) ; 

Count3 := 0 ; 

xl := 55 ; yl := 6 ; limit := 4 ; 
checknumber ( answer , x 1 , y 1 , 1 i m i t , count 3 ) ; 

norm- Nurnof users := trunc ( counts) ; 
for a : = 1 to trunc ( counts) do 
beg i n 

gotoxy ( 9, 6+a ) ; 

write (’ - name of member # ’ , a ) ; 

gotoxy ( 52, 6+a ) ; 
write ( ’ ? 1 ) ", 

Gotoxy ( 55, 6+a ) ; 

read ( answer ) ; 

norm, Usersnarnes [a] := st upcase ( answer ) ; 

end ; 

gotoxy ( 5, a+7 ) ; 
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write (’1.2 Id of member ’ , norm. UsersnarnesCl] ) 
gotoxy ( 52, 7+a ) ; 
write ( 9 ? ’ ) ; 

Gotoxy ( 55, a+7) ; 

read ( answer ) ; 

norm. Users ids Cl 1 := st upcase (answer ) ; 

gotoxy ( 2, 12 ) ; 

text co lor ( blue ) ; 

write ( ’ 2. Group decition techniques ’ ) ; 

textcolor ( black ) ; 

gotoxy ( 5, 1A ) ; 

write ( ’2.1 Weighted majority rule : ’ ); 

gotoxy ( 9, 15) ; 

write ( 1 - equal weights (y/n)’ ) ; 

gotoxy ( 52, 15 ) ; 
write ( ’ ? ’ ) ; 

XI : = 55 ; yl : = 15 ; 
identify ( answer , xl,yl ) ; 

if answer = ’ y’ then 
beg i n 

for a := 1 to norm. Nurnof users do 
norm. Wei ght Cal := 1 

end 
else 
beg in 

for a := 1 to norm. Nurnof users do 
beg in 

gotoxy ( 12, 15 + a ) ; 

write ( ’ - weight for ’ , norm. UsersnarnesCa] ) 
gotoxy ( 52, 15+a ) ; 
write ( ’ ? ’ ) ; 

Count 3 := 0 ; 

xl : = 55 ; yl := ( 15+a ) ; limit := 100 ; 

checknurnber ( answer , x 1 , y 1 , 1 imi t , count 3 ) ; 

norm. Weight [a] := counts ; 

end ; 
end ; 
clrscr ; 

gotoxy (5,2) ; 

textcolor ( blue ) ; 

write ( ’2.2 Collective evaluation mode ’ ) ; 

gotoxy ( 0, A ) ; 

textcolor ( black ) ; 

write ( ’ choose one of the following modes : ’) 

gotoxy ( 10,6) ; 

write ( ’ <1> each group member will evaluates 

alternat ives’ ) ; 
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gotoxy ( 10,7) 

wr i t e ( ’ 

gotoxy ( 10 , 8 ) 

write ( ’ 

gotoxy ( 10 , 9) 



according to all criteria, ’ ) ; 

5 

<£> Each group member will evaluate only 
alternatives’ ) ; 



write (’ according to his exclusive area of 

expert ise . ’ ) 5 
gotoxy ( 8 , 11 ) ; 

write ( ’ Enter a number ? ’ ) ; 



Count 3 := 0 ; 

xl : = 31 ; yl : = 11 5 limit :=£ ; 

checknurnber ( answer , x 1 , y 1 , 1 imi t , count 3 ) ; 



if answer = ’ 1 ’ then 

norm- Special i zed := false 
e 1 se 
beg in 

norm- Special i zed := true ; 

a : = 0 ; 

repeat 

gotoxy ( 8, 13) ; 

cl reel ; 

write ( ’ the name of the problem ? ’ ) ; 

Read ( answer ) ; 

delete ( answer , 8 , length (answer) ) ; 

prnarne := concat ( answer , 3 . Def ’ ) ; 

norm, norrnnarnex := prnarne ; 

Problernnarnel : = answer ; 
until exist ( prnarne ) ; 

readprobl emf i le ; 

for a:= 1 to problem- Levels do 
beg in 

gotoxy ( IS, 14 + a ) ; 

write ( , - name of user for critiria 

’ , problem. Level 1 Call , ’ ? 3 ) ; 

error := false ; 
repeat 

gotoxy ( 54, 14 ■+• a ) ; 

clreol ; 

read ( answer ) ; 

answer := stupcase ( answer ) ; 

for b := 1 to norm- numof users do 
begin 

if answer = norm. usersnarnesCbl then 
error := true ; 



end ; 

unt i 1 error ; 
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Norm. Spec i ndex CaD : = answer 
end ; 
end ; 

clrscr ; 

gotoxy ( 5,2) ; 

write ( ’2.3 Automatic selection of techniques of ’) ; 

gotoxy ( 5, 3) ; 

write ( ’ aggregation of preference (y/n) ’ ) ; 

gotoxy ( 52, 3) ; 
write ( ’ ? ’ ) ; 

XI : = 55 ; yl := 3 ; 
identify ( answer , xi,yi ) ; 

if answer = ’ y 1 then 

norm. Agregat ion : = true 
else 
beg i n 

norm. Agregat ion := false ; 

a := 0 ; 

got oxy ( 9,5) ; 

■ write ( ’ — rl : sum of ranks (y/n)’ ) ; 

gotoxy ( 52, 5) ; 
wr i t e ( ’ ? ’ ) ; 

XI : = 55 ; y 1 : == 5 ; 

identify ( answer ,xl,yl ) ; 

if answer = ’ y’ then 
begin 

a s = a + l ; 

norm. Agregat ionnarne Call := ’ 1’ ; 

end 
else 
beg i n 

a : = a + 1 ; 

norm. Agregat ionnameCa] := ’ e’ ; 
end ; 

gotoxy (9,6) ; 

write (’- r2 : sum of outranking relations (y/n)’ ) ; 

gotoxy ( 52, 6) ; 
write ( 1 ? ’ ) ; 

XI := 55 ; yl : = 6 ; 
identify ( answer ,xl,yl ) ; 

if answer = 1 y 1 then 
beg i n 

a : = a + 1 ; 

norm. Agregat ionnameCa] := ’ 2’ ; 

end 
e 1 se 
begin 

a : = a + 1 ; 



Q2 






norm, flgregat ionnarne Cal : = 9 e 9 
end ; 

gotoxy (9,7) ; 

write ( 9 - r3 : additive ranking (y/n ) 9 

gotoxy ( 52, 7) ; 
write ( 9 ? 9 ) ; 

XI : = 55 5 y 1 : = 7 -, 

identify ( answer ,xl,yl ) ; 

if answer = 9 y 9 then 
beg in 

a : = a + 1 ; 

norm. Agregat ionnarne CaU := 9 3 9 ; 

end 
else 
beg i n 

a : = a + 1 ; 

norm. Agregat ionnarne CaU := 9 e 9 ; 
end ; 

gotoxy ( 9, 8 ) : 

write ( 9 - r4 : multiplicative ranking 
gotoxy ( 52, 8) ; 
write ( 9 ? 9 ) ; 

XI : = 55 ; y 1 : = 8 ; 

if answer = 9 y 9 then 
beg in 

a : = a + 1 ; 

norm. Agregat ionnarne CaU := 9 4 9 ; 

end 
else 
beg in 

a s = a + 1 ; 

norm. Agregat ionnarne CaD := 9 e 9 ; 
end ; 
end ; 

gotoxy (5,9) ; 

write ( 9 2. 4 Automatic computation of nai 

gotoxy ( 52, 9) ; 
write ( 9 ? 9 ) ; 

XI : = 55 ; yl := 9 ; 
identify ( answer , xl,yl ) ; 

if answer = 9 y 9 then 
norm. Nai := true 
else 

norm. Nai := false ; 
clrscr ; 
gotoxy ( 2 , 2 ) ; 

text co lor ( blue ) ; 

write ( 9 3. Information exchange 9 ) ; 

textcolor ( black ) ; 

gotoxy (5,4) ; 



(y/r.) 9 ) 



(y/n) 9 ) 
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write ( ’3.1 Broadcasting of individual outputs (y/n) ’ ) 

got oxy ( 5c, 4) 
write ( ’? ’ ) ; 

XI := 55 ; yl := 4 ; 
identify ( answer , xl,yl ) ; 

if answer = ’ y’ then 

norm. Broadcast ing : = true 
else 
begin 

norm. Broadcast ing := false 5 
end ; 

got oxy ( 5, 5) ; 

write ( ’ 3. 2 Permission to modify individual analyses ’ ) ; 

gotoxy ( 5, S) ; 

write ( ’ after group analyses (y/n) ’ ) ; 

gotoxy ( 5c! , 6 ) \ 

write ( ’ ? ’ ) ; 

identify ( answer , xl,yl ) ; 

if answer = ’ n’ then 

norm. Mod i f y z- fa 1 se 
e 1 se 
beg i n 

norm. Modify : = true ; 
gotoxy ( 9,7) ; 

write ( ’ 3. S. 1 How many times (max 10 )’ ) ; 

gotoxy ( 52,7)-; 
write ( ’ ? ’ ) ; 

Count 3 := 0 ; 

checknumber ( answer , x 1 , y 1 , 1 i m i t , count 3 ) ; 

norm. Mod i f yt irnes : =t r unc ( count 3) ; 

if norm. Special i zed then 

norm. Mod i f yt irnes : = norm. Mod i f yt i rnes * norm. Nurnof users 

end ; 

gotoxy ( 5, 8 ) ; 

write ( ’3.3 Time limit to submit individuals results : ’ ) 

gotoxy ( 9, 9) ; 

write ( ’ 3. 3. 1 How many days (max 14 ) ’ ) 5 

gotoxy ( 52, 9) ; 
write ( ’? ’ ) ; 

Count 3 := 0 ; 

checknumber ( answer , x 1 , y 1 , 1 imi t , count 3 ) ; 

norm. Lastt irne : = trunc ( count 3) ; 

gotoxy ( 9, 10) ; 

write ( ’3.3.2 Hours ( 1:00 to 24:00 )’) ; 

gotoxy ( 52, 10) ; 
write ( ’ ? ’ ) ; 

Gotoxy ( 55, 10) ; 

read ( last hour ) ; 

for a := 2 to norm. Nurnof users do 
norm. Users ids Call := ’ X’ ; 

END ; 
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INCLUDE FILE STEPS-1 



PROCEDURE NORMSELECTION ( VPR XI, Y1 : INTEGER ) ; 

BEGIN 

got ox y < x 1 , y 1 ) ; 

write < ’ name of the norm ? ’ ) ; 

Repeat 

got oxy < £3, y 1 ) ; 

clreo 1 ; 

read < answer ) ; 

norm. Current name := stu pease (answer) ; 
normname : = concat < answer , ’ . Gn’ ) ; 

until < exist < normname ) ) ; 

END ; 



PROCEDURE DISPLPVNORM ; 

VftR 

rnessagel, rnessagec s stringC803 ; 

BEGIN 

window < 1,1, 80, £5) ; 

text background < blue ) ; 

clrscr ; 

text color < white ) ; 

read norm f i le ; 
clrscr ; 

gotoxy < £, £ ) ; 

write < ’name of the group norm : ’, norm. Current name ) 

gotoxy ( £, 3 ) ; 

write < ’1. Identification of group members ’ ) ; 

gotoxy < 5,4) ; 

write < ’1.1 Number of group members : , 

norm. Nurnof users) ; 
for a : = 1 to norm. Nurnof users do 
beg i n 

gotoxy ( 9, 4+a ) ; 

write <’ - name of member # ’ , a , ’ : ’, 

norm. Usersnames Cal ) ; 

end ; 

gotoxy ( £, 9 ) ; 

write ( ’ £. Group decision techniques ’ ) ; 

gotoxy ( 5, 10 ) ; 

write ( ’ £. 1 Weighted majority rule ’ ); 
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’ ) ; 



got oxy (9,11) ; 

write ( 7 — weights of members : 

for a : — 1 to norm. Nurnof users do 
begin 

got oxy ( 12, 11 + a ) ; 

write ( a, 7 . 7 , Norm- UsersnamesEa] , 7 

norm. Weight CaJ s 4 : £ ) ; 
end ; 

if norm. special i zed then 
beg in 

rnessagel := 7 Each group member will evaluate only 
al ternat i ves 7 ; 

messages := 7 according to his exclusive area of 

expert ise 7 ; 
end 
e 1 se 
b e g i n 

rnessagel : ~ 7 each group member will evaluate 

al ternat i ves 7 ; 

rnessageS := 7 according to all criteria 7 ; 
end ; 

got oxy ( 5, 15) ; 

write ( 7 £. £ Collective evaluation mode : 7 ) ; 

got oxy ( 9, 16) ; 

write ( rnessagel ) ; 

got oxy ( 9, 17) ; 

write < messages ) ; 

if norm. spec i al i zed then 
begin 

prname : = norm, norrnnarnex ; 
readproblernf i le ; 

got oxy ( 1 1 , 1 Q ) ; write ( ’Criteria 7 ) ; 

gotoxy(35, 18) ; write ( 7 user name 7 ) 5 

for a := 1 to problem. levels do 
begin 

gotoxy < 11,18 + a ) ; 

write ( problem, level 1 Call ) ; 

gotoxy ( 35, 18 + a ) ; 

write ( norm- specindex Call ) ; 

end ; 
end ; 

Text co lor < red ) ; 

gotoxy ( £,£ 5 ) ; 

write ( 7 hit any key to continue 7 ) ; 

read ( kbd , ch ) ; 

clrscr ; 

text co lor ( white ) ; 

gotoxy (5,3) ; 
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write ( 



-’ 2. 3 Selection of techniques of aggregation of 
preference : ’ ) ; 

if norm. Ag re gat ion then 

begin 

gotoxy ( 35, 3) ; 

write < ’ rl r£ r 3 r4 ’ ) 5 

end 
else 
begin 

gotoxy ( 60, 3) ; 

for a : = 1 to 4 do 
begin 

case norm, Agregat i onnarne Call of 



’ 1’ 


: 


wr i t e 


( 


’ rl ’ 


) 


? 


’ £ ’ 


: 


write 


( 


’ r£ ’ 


) 


5 


’ 3’ 


: 


write 


( 


’ r3 ’ 


) 


5 


’ 4’ 


: 


write 


( 


’ r4 ’ 


) 


5 



end ; 
end ; 
end ? 

gotoxy ( 5, 5) ; 

write ( ’£.4 Automatic computation of nai : ’ ) ; 

if norm. Nai then 

write ( ’ yes ’ ) 

else 

write ( ’no ’ ) ; 

gotoxy ( £, Q ) ; 

write ( ’3. Information exchange ’ ) ; 

gotoxy (5,3) ; 

write ( ’3.1 Broadcasting of individual outputs : ’ ) ? 

if norm. Broadcasting then 
wr i t e ( ’ yes ’ ) 

e 1 se 

write ( ’no ’ ) ; 

gotoxy ( 5, 10) ; 

write ( ’3.2 Permission to modify individual analysis after 
group analysis s’); 
i f norm. Mod i fy then 
begin 

write In ( 1 yes ’ ) ; 

write ( ’ you can modify the output ’, 

norm. Mod i fyt irnes, ’ times ’ ) ; 

end 
else 

write ( ’no ’ ) ; 

gotoxy ( 5, 1 £ ) ; 

write ( ’3.3 Time limit to submit individual results:’) ; 
gotoxy ( 9, 13 ) ; 

write ( ’date : ’ , norm. Last t i me ) ; 

gotoxy ( 9, 14 ) ; 



37 



write ( ’hoar : ’ , ’22:30’ ) ; 

text co lor ( red ) ; 

gotoxy ( 2, 25) ; 

write ( ’ hit any key to continue 
read ( kbd , ch ) ; 

END ; 

INCLUDE FILE STEPS 






PROCEDURE PRIORITYOFCRITERIA ; 
LABEL 

telosx, telosx 1, telosxS ; 

VAR 

pruserl, filenames : name ; 
errorS : boolean ; 

PROCEDURE FINAL WEIGHTS ; 

BEGIN 



for a : = 1 
begin 

for b : = 
begin 

vect or 2 
for c 
begin 
case 
1 : 



4: 
5 : 
end ; 
end ; 
c : = 0 
end ; 
b : = 0 ; 
end ; 

END ; 



to problem. Levels do 
1 to problem. Sublevel 1 Ca] do 



Ca, bl := vectorSCa, b3 * vectorl Call ; 
: = 1 to problem. SublevelS Ca, bH do 



a of 

vectors Cb, cD 
vect or 4 Cb, cl 
vectors Cb, cl 
vect or 6 Cb, cl 
vector7 Cb, cJ 



:= vect or 3 Cb , cl * 
= vector4Cb, c] * 
:= vectors Cb , cl * 
= vectorSCb, c] * 
:= vect or 7 Cb, cU * 



vectorE Ca, hi 
vectors Ca, bl 
vectors Ca, b j 
vectors Ca, bl 
vector-2 Ca, bl 
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PROCEDURE FINALCRITERI A 1 






BEGIN 



nurnofcriteria : = 1 ; 

select criteria ( problem, vector 1 , vectors, vect or 3, 

vectorA, vectors, vectors, vector7, 
normvector 1 , normvectorS, nurnofcriteria 
numofcr i teria : = ( nurnofcriteria - 1 ) ; 

sort 1 ( normvectorl , norm vect ore! , nurnofcriteria ) ; 



f i na 1 cr i t er i a ( normvector 1 , 
solution. Nurnofcriteria : = 
so 1 ut i on. Norrnvect orS : = 
so 1 ut i on. Norrnvect or 1 : = 



norrnvect or 2 , numofcr i t er i a 
n urno f cr i t er i a ; 
norrnvect ore! ; 
norrnvect or 1 ; 



) 



sol ut ion. Username := narnex ; 

if ( not norm. special i zed ) Then 
begin 

if ( not exist ( pruser ) ) then 

begin 

sol ut ion. Ahp. Stat us := false ; 

solution. Electre. Status := false ; 
solution. Ahp. Numoftries := 0 ; 
so 1 ut i on . E 1 ect re. N urno ft r i es : = 0 ; 

opensol ut ionf i le ( pruser ) ; 

end ; 

writesol ut ionf i le ; 
end ; 

END ; 



BEGIN (* main *) 

stringl £8 := ’step 3 : prior it i zat ion of evaluation 
criteria’ ; 
diskstatus ; 

string 1 £S := ’ i dent i f i cat i on of the problem methods : 
ahp or d irect ’ ; 

dat a ; 

wr i tenor mf i le ; 
readS ; 

read pro blemf i le ; 
clrscr 5 

if norm. Spec i al i zed then 
begin 

if ( not exist ( pruserS ) ) then 

begin 

errors : = false ; 



as 



false ; 
false ; 



for a : = 1 to 3 do 
beg i n 

specf i le£. solved C A] 
specf i 1 ei 3. Final indexCal 
end ; 

specf i 1 e£. comp 1 et ed : = 

specf i le£. Cornpletedal 1 : = 

openspecfile ( pruserS ) ; 

writespecfile ; 
end 
e 1 se 



error5 := true ; 



readspecfi 1 
vector! : = 
vectorc! : = 
vector3 : = 
vect or 4 : = 

vectors : = 
vectors s = 
vect or 7 : = 



e ; 

specf i 1 e£. 
specf i 1 e£. 
specf i 1 e£. 
specf i le£. 
specf i lec. 
specf i le£. 
specf i le£. 



vect or 1 
vectors 
vector3 
vect orA 
vectors 
vectors 
vect or 7 



Fa 1 se 
fa 1 se 
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b : = 0 ; 

repeat 

b : = b + 1 ; 

until ( narnex = norm. usersnarnesCb] ) ; 

specf i 1 e£. sol ved Cb] s = true ; 
end ; 



If method* = 1 ahp 1 then 

eva 1 uat e ( probl em. Leve 1 1 , probl em. Level s, vect or 1 ) 

e 1 se 

direct 1 ( probl ern. Level 1 , problem. Levels, vectori ) ; 

clrscr ; 

if ( ( norm. special i zed ) And ( errorS) ) then 

beg i n 

for a : = 1 to problem. levels Do 

vectori Ca] : = ( vectori Ca] + specf i le£. vectori Ca] ) /£ 

end 5 

for mall :=1 to problem. Levels do 
beg in 

if norm. Speci a 1 i zed then 
begin 

if norm. Spec index Cmal 1 D <> name* then 
goto telosx ; 

end ; 

for rna 1 £ : = 1 to pro b 1 ern . Sublevell C rna 11 ] do 
beg i n 

vect ort an Crna 1 £] := vect or£ Cmal 1, rnal£] ; 

array£[rnal£] := problem. Leve 1£ Cmal 1, rna 1 £] ; 

end ; 
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if methodx - ’ ahp 1 then 

eval uate (arrayS, problem, Sublevel 1 Cmal 1 3 , vectortan) 
e 1 se 

d irect 1 (arrays, problem. Sublevel 1 Cmal 1 3 , vectortan ) 
rna IS : = 0 ; 

for rna IS := 1 to problem. Sublevel 1 Email] do 
begin 

if norm. Spec i a 1 i zed then 
beg in 

if norm, Specindex [mall ] <> narnex then 



goto telosx ; 

end ; 

vectors Cma 1 1 , rna 1 S3 : = vectort an Crna 1 S3 ; 
end ; 

rna IS : = 0 ; 
telosx : 
end ; 

clrscr ; 

for si := 1 to problem. Levels do 
begin 

if norm. Special i zed then 



beg in 



if norm. Speci ndex Csl 3 <> narnex then 

goto telosx 1 ; 



end ; 




for sS : = 1 


to p r 


beg in 




for s3 : = 


1 to 


beg i n 




case 


si 



do 



: = problem. Level3CsS, s33 



begin 

arrayS Cs33 
vectort an Cs33 := vect or3 CsS, s33 ; 

end ; 
beg i n 

arrayS Cs33 



: “ problem. Leve 1 4 CsS, s33 



vect ort an Cs33 := vect or4 CsS, s33 ; 

end ; 

3: begin 

arrayS C s33 := problem. Level 5 C sS 

vect ort an Cs33 := vect or 5 CsS, s3H ; 
end ; 

4s begin 

arrayS Cs33 := problem. LevelSCsS, 

vect ort an Cs33 := vect orS CsS, s33 ; 

end ; 

5: begin 



, s33 



s33 
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1 



array2Cs3D := problem. Level7Cs2, sSU 

vect ortan Cs31 : = vector7Cs£, s3] ; 

end ; 

end ; 
end ; 
s 3 : = 0 ; 

if rnethodx = 1 ahp 1 then 

eva 1 uat e ( array2, prob 1 ern. Sub 1 eve 12 Csl , s23 , vectort an) 
else 

direct 1 (array£, problem. Sublevel2 Csl , s21 , vectortan) ; 
clrscr ; 

for s3 := 1 to problem. Subleveliz! Csl , s2D do 



begin 

if norm. Special i zed then 
begin 



if 


norm. Specindex Csl 1 


<> 


narnex then 






goto tel osx ; 








end ; 










case 


si of 








1 


: vector3 Cs2, s3H 


= 


vect ort an Cs3H 




2 


: vector4Cs2, s3D 


= 


vectort an Cs3H 


; 




: vectors Cs2, s3U 


= 


vect ort an Cs31 


; 


4 


: vectors Cs2, s3D 


= 


vectort an Cs3H 


; 


5 


: vect or 7 Cs2, s31 


= 


vectort an C s3H 


; 



end 

end ; 
end ; 
s£ : = 0 
tel osx 1 : 
end : 



if ( not norm. Special i 
begin 

f inalweights ; 
final cr i t er i a 1 ; 

end 
e 1 se 
begin 

specf i le2‘. vectorl 
specf i 1 e2‘. vect or 2 
specf i 1 e2. vect or 3 
specf i le2. vect or 4 
specf i le2. vectors 
specf i le£. vector6 
specf i le2. vector7 
writespecf i le ; 
end ; 



zed ) then 



vectorl 
vect or 2 
vect or 3 
vect or 4 
vectors 
vectors 
vect or 7 
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if norm. spec ia 1 i zed then 
begin 

readspecfile ; 
rna 11 : = 0 ; 

for a : = 1 to 3 do 
beg in 

if specf i le£. solvedCa] then 
mall := mall + 1 ; 

end ; 



if mall = 
beg i n 

vect or 1 
vectors 



norm, nurnof users then 

: = specf i le£. vect or 1 ; 

: = specf i le£. vectors ; 



vect or 3 
vect or 4 
vectors 
vectors 
vect or 7 



specf i leS. vectors 
specf i leS. vect or 4 
specf i 1 e£. vectors 
specf i 1 e£. vectors 
specf i 1 ec. vect or 7 



final weights 5 
f i na lcriterial ; 

specf i leS. completed := true ; 
specf ileS. norrnvectorl : == norrnvectorl 
specf i 1 ec. norruvectorS s = norrnvectorS 



for a : = 1 to nurnof criteria do 
begin 
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for mall := 1 to problem. levels do 
beg in 

if problem, level 1 Cnial 1 ] = norrnvectorl [a] then 

begin 

specf i leS. normindex Call : = norm, specindex Cmal 1 U 



goto telosxS ; 



end ; 
end ; 

for mall := 1 to problem. level s do 
beg i n 

For male! := 1 to problem, sublevel 1 [Mali] do 
begin 

if problem, levels Cmal 1 , rualSH = norrnvectorl Call Then 
begin 

specf i leS. normindex [a] : = norm. specindex Cmal 1 U 5 

goto telosxS ; 
end 5 
end ; 
end ; 



For si 2= 1 to problem. Levels do 
begin 

for s2 2= 1 to problem. Sublevel 1 Csl ] do 
beg in 
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for s 3 := 1 to problem- Sub 1 eve 1 2 Cs 1 , sell do 
beg l n 

case si of 

1 : beg in 

if problem- 1 eve 1 3 Cs2, s3U = norrnvectorl Cal 
Then begin 

specf i 1 norrnindex CaU s ==norrn- spec index CS 1 U ; 
goto telosxS ; 
end ; 
end ; 

£: begin 

if problem- 1 eve 1 4 Cs2, s3U = norrnvectorl CaU 

then begin 

specf i 1 e£. norm i ndex CaU : =norm. spec i ndex lS 1 U ; 
goto telosxc! ; 
end ; 
end ; 

3: begin 

if problem. levels Cs3U = riormvectorl Ca] then 
begin 

specf i lec!. norrnindex CaU s =norrn. spec index CS1 U ; 
goto telosxc! ; 
end ; 
end ; 

4: begin 

if problem. 1 eve 1 6 Cs2, s3U = norrnvectorl CaU 
then begin 

specf i 1 ec. norrnindex CaU : = norm, spec i ndex CS 1 U ; 
goto telosxc! ; 
end ; 
end ; 

5: begin 

if problem. level7Cs£, s3U=norrnvectorl CaU then 
beg i n 

specf i 1 e2. norm index CaU s =norm. spec i ndex CS 1 U : 
goto telosxS ; 
end ; 
end ; 
end ; 
end ; 
end ; 
end ; 
telosxS : 
end ; 

specfileS. nurnof criteria : = nurnofcriteria ; 

specf i 1 ec!. nurnof a 1 1 ernat i ves : == prob 1 ern. nurnof a 1 1 ernat i ves ; 
specf i lec. alt ernat ives : = problem. alt ernat i ves ; 
writespecf i le ; 
end ; 
end ; 

END ; 



94 



INCLUDE FILE STEP3-1 



OVERLAY PROCEDURE EVALUATE (var array2:t it le;var w 

var vector tan : vect 

LABEL 

ert 1 , ert 3 ; 

CONST 



count = 3 ; 



VAR 

a3, b 3, c3, d3, h3, k 3, f3, p 3, 1, al, bi, 

levels!, i, count!, istoqram : integer ; 

row, rowl, larnda, ci, ri,cr, 

score, answer3, integer 1 *: real ; 

arrayj, vectorbase, exchanges s vectors! ; 

st s string C93 ; 

ch : char; 

larndal , vectorE : array C 1..503 of real ; 
exchange4 s array [1. . £0] of name ; 
matri x£, result , rnatri x3 : array C 1 . . £0, 1 . . £03 of 
answer^ s name : 



PROCEDURE INFO ; 

BEGIN 

w i ndow ( 1 , 13, 80, £3 ) ; 
text background (14) ; 

t ext col or ( red ) ; 

got oxy (1,6) ; 

writeln ( ’ "note : be as accurate as possible - 

greater than 1 e. g, £.45 ’ ) ; 

Writeln ( ’ a possible scale for inexact is : 1 
writeln ( ’ 3 = weakly important than , 5 

more import an than ’ ) ; 

writeln ( 1 7 = very strongly more imp. than 9 

absolutely more imp. than’ ) ; 

END ; 

BEGIN (* main ■*> 

window ( 1,1,50,12 ) ; 

text background (blue) ; 
c 1 rscr ; 



: integer ; 
or si ) ; 



real ; 



- any # 

) : 

= strongly 
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window (51 , 1 , 80, 12) ; 
text background ( white ) ; 

clrscr ; 

window ( 1 , 13, 80, 23 ) ; 

text background (14) ; 

clrscr ; 

window (1,24,80,25 ); 
text background (white) ; 
clrscr ; 

text co lor ( black ) ; 

got oxy (2,1) ; 

write (’step 3 : prior it izat ion of evaluation criteria ’) 
got oxy ( 2,2) ; 

write ( ’method : ahp ’ ) ; 

level si := w ; 
if levelsl <> 0 then 

beg in 

window ( 1,1, 50, 12 ) ; 

text background (bl we) ; 
c 1 rscr ; 

window (51 , 1 , 80, 21 ) ; 
text background ( white ) ; 

clrscr ; 

window (1,13,80,23 ); 
text background (14) ; 

clrscr ; 

if w = 1 then 

vectortanCw] := 1 ; 

if w = 2 then 
beg in 

window ( 1,1, 50, 12 ) ; 

text background ( bl ue) ; 
text co lor (white ) ; 

vector base := vector tan ; 
levelsl := w ; 
gotoxy ( 1,1) ; 

write (’ pairwise comparison ’) ; 

gotoxy ( 10, 3 ) ; 

for al := 1 to levelsl do 

write ( copy ( array2 Ca 1 1 , 1 , 5) , ’ ’ ) ; 

for al : = 1 to levelsl do 
beg in 

gotoxy (2 , 3+al ) ; 
write (copy ( arrays Cal 1 , 1 , 5) ) ; 

end ; 
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window (51 , 1 , 80, 21 ) ; 
text background (white ) ; 

textcolor( 0 ) ; 

got oxy (1,1) ; 

write ( ’ priority vector ’ ) ; 

for al := 1 to level si do 

begin 



got oxy (2,3 +al ); 
write (copy ( arrays Cal 1 , 1 , 16) ) ; 

end ; 

for a :== 1 to level si do 
beg in 

got oxy ( 20 , 3 + a ) ; 

write ( chr ( 179 ) ) ; 
end ; 

for a := 1 to level si do 
begin 

got oxy (27, 3 + a ) ; 

write ( chr ( 179 ) ) ; 
end ; 

window (1,13,80,23 ); 
text background (14) ; 

clrscr ; 

t ext col or ( black ) ; 

got oxy ( 2 , 2 ); 

write ( ’is ’ , array 2 C 1 1 , ’ more important than ’, 
array2C23 , ’ (y/n) ? ’ ) ; 

Repeat 

got oxy ( 75, 2 ) ; 

clreol ; 

read ( answer ) ; 

answer := stupcase ( answer ) ; 

until ( ( answer = ’ y’ ) or ( answer = ’ n’ ) ) 5 

if answer = ’ y’ then 
begin 

got oxy ( 2 , 3) ; 

write ( ’how many times is ’ , arrays C ID , ’ more 

important than ’ , arraySC2], ’ ? ’ ) 

Got oxy ( 2, 4) ; 

write ( ’ ( see note below ) ’ ) ; 

info ; 

text co lor ( black ) ; 

repeat 

got oxy (75, 3) ; 
clreol ; 

read ( answer ) ; 

val ( answer, answers, code ) ; 

unt i 1 ( ( code = 0 ) and ( answers > 0 ) ) ; 
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vectortan t 1 3 := ((10 / (answers + 1 )) * 

vectortanC23 := ( 10 / ( answers + 1 ) 

window ( 1, 1,50, 1 2 ) 5 

text background (blue) ; 
text co lor ( white ) ; 

gotoxy ( 13, 4 ) ; 

write ( answers : 4 : 2 ) ; 

gotoxy ( 10,5); 

write ((1 / answerS) :4:£ ) ; 

end 
else 

if answer = 1 n’ then 
beg i n 

gotoxy (£, 3) ; 

write ( ’how many times is ’ , arrayS C23 , 1 
important than ’ , array£C13, ’ ? ’ ) ; 

gotoxy ( £, 4) ; 

write ( ’ ( See note below 1 ) ; 

info ; 

text co lor ( black ) ; 

repeat 

got oxy ( 75, S) ; 
clreol ; 

read ( answer ) ; 

val ( answer, answerS, code ) ; 

until code = 0 ; 

vectort an C23 := ((10 / (answerS +1) ) * 
vectortanCl] : = ( 10 / ( answerS +1 )) 

window ( 1, 1, 50, 12 ) ; 

text background (blue) ; 
text co lor ( white ) ; 

gotoxy ( 10,5); 

write ((1/ answerS) : 4 : 2) ; 

got oxy ( 18,4) ; 

write ( answerS : 4 : 2 ) ; 

end ; 

window (51, 1, 80, 21); 

text background ( white ) ; 

textcolor ( black ) ; 

for a 1 := 1 to 1 eve 1 s 1 do 

begin 

gotoxy (22, al+3) ; 

write ( ( vectortanCal] ) :5:S ) ; 

end ; 

window (1,13, 80,23 ); 
text background (14) ; 

clrscr ; 

textcolor ( black ) ; 



answerS) / 10 
/ 10 5 



more 



answerS )/10 
/ 10 ; 
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for al := i to 2 do 
begin 

gotoxy ( ( ( 5 * al ) ) , 9 ) ; 

write (copy ( arrays Ca 1 1 , 1 , 3 ) ) ; 

end ; 

for al := 1 to £ do 
beg in 

gotoxy ( ( ( 5 * al ) ) , 10 ) ; 

write ( (vectortanCal] ) : 3:2 ) ; 

end ; 

text background ( green ) ; 

for al := 1 to £ do 
begin 

gotoxy ( ( 5 * al ),S ) ; 

write ( 7 7 ) ; 

end ; 

for al := 1 to £ do 
begin 

gotoxy ( (5 + ( 5 * al )) ,9) 5 

if (round (vectortanCal! -* 10 ) > 7 ) then 

istogram := 7 
else 

istogram := ( round ( vectortanCal] * 10 ) ) 

for bl := 1 to istogram do 
beg in 

gotoxy ( ( ( 5 * al )) , (9 -bl) ) ; 

write ( 7 7 ) ; 

end ; 
end ; 

text background ( 14 ) ; 

text co lor ( black ) ; 

got oxy (£, 11 ) ; 

write ( 7 hit any key to continue 7 ) ; 

read ( kbd , ch ) ; 

end ; 

if w > £ then 

beg i n 

for a3 := 1 to 5 do 

mat r i x£ Ca3, a3] := 1 ; 

window ( 1,1, 50, 1 £ ) ; 

text background (blue) ; 
text co lor ( white ) ; 

vectorbase := vectortan ; 
levelsi := w ; 
gotoxy ( 1 , 1 ) ; 

write ( 7 pairwise comparison 7 ) ; 

gotoxy ( 10,3 ) ; 
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for a 1 : = 1 to level si do 

write ( copy ( arrays Cal 3, 1, 5) , 1 

for al := 1 to levelsl do 
begin 

gotoxy ( £ , 3+al ) ; 

write (copy ( arrays Ca 1 3 , 1 , 5) ) ; 

end ; 



window (51 , 1 , 80, £1 ) ; 
text background ( white ) ; 

textcolor ( 0 ) ; 

gotoxy (1,1) ; 

write ( 1 priority vector 1 ) ; 

for al : = 1 to levelsl do 
beg in 

gotoxy ( £ ,3 +al ); 
write (copy ( arrayS Ca 1 3 , 1 , 1 3 ) ) ; 

end ; 

for a : = 1 to 1 eve 1 s 1 do 
beg in 

gotoxy (£0,3 + a ) ; 

write (chr ( 179 ) ) ; 

end ; 



for a := 1 to 
begin 

got oxy ( £7, 3 
write ( chr 
end ; 



levelsl do 

+ a ) ; 

( 179 ) ) ; 



info ; 



textcolor ( 0 ) ; 

for a : = 1 to ( levelsl - 1 ) do 

begin 

criterial := array£Ca3 ; 

for b := 1 to ( levelsl - a ) do 

beg in 

criteriaE := array£Ca+b3 ; 
repeat 

gotoxy ( 1 , £ ) ; 

wr i t e (’is ’ , cr i t er i a 1 , ’ more i rnport ant 
criteria^ , ’ (y/n) ? ’ ) ; 

Gotoxy ( 77, £ ) ; 

clreol ; 

read ( answer ) ; 

answer := stupcase ( answer ) ; 

clreol ; 

until ((answer = ’ y’ ) or ( answer = ’ n’ 

if answer = ’ y’ then 

begin 



than ’ , 



> ) ; 
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got oxy. ( 1,3 ) ; 

write ( ’how many times is ’, criteria! : 5 , ’ more 
important than ’ , criteria£:5 , ’? ’); 
gotoxy (1,4) ; 

write ( 1 ( See note below ) ’ ) ; 

repeat 

gotoxy (77 , 3 ) ; 

clreol ; 

read ( answer ) ; 

val ( answer , 
until (( code = 0 
rnatrix 2 Ca, a+bD 
matrixSCa+b, all 
mat r i x£[a, aD 



answer 3 , code ) 

) and ( answer3 > 
answers ; 

( 1 / answers ) 

1 ; 



0 ) ) 



window ( 1,1,50,12 ) ; 

text background (blue) ; 
text co lor ( white ) ; 

gotoxy ( ( 2 + ( (a +b ) * 8 )) 

write ( answerS: 4:2) ; 

gotoxy ( 2 + (a * 8 ) , ( 

write ((1 / answerS) : 4 : 2 

end ; 



rr 



i f answer = 
beg in 

gotoxy ( 1,3 ) 5 



then 



+ a ) 



+ < a + b ) ) ) 



write ( 



how many times is ’ , criteria;-, ’ more 



import ant 
gotoxy ( 1,4) ; 

write ( ’ ( See 

repeat 

gotoxy ( 75 , 3 ) 
clreol ; 
read ( answer ) 
val ( answer , 
unt i 1 ( ( code = 0 

matrix2Ca, a+bD 
matrix 2 Ca+b, a!] 
mat r i x 2 Ca, a 3 



than ’ , criterial :5 , 9 ? ’ ) 



note below ) 1 ) 



answers 
) and ( 



, code 
answer^ 



> 0 ) ) 



= ( 1 / 



= 1 



answerS) 

answerS 



window ( 1, 1,50, 12 ) 

text background (blue) ; 
text col or ( white ) 
gotoxy ( ( 2 +( (a 

write ((1/ answerS) 
gotoxy ( 2 + (a * 8 

write ( answerS: 4:2 
end : 



1 

+ b ) 
4:2) 



* 8 ) ) 



+ a ) 



( 



+( a + b ) ) ) 



window (1,13,80,23 ) 
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text background (14) 
text co lor ( black 



gotoxy (1,2 ) 
clreol ; 
gotoxy <1,3 ) 
clreol ; 
gotoxy (1,4 ) 
clreol ; 
end ; 
end ; 















mat r i x2 C level si , levelslU : = 
ert 1 : 



i ; 



rnatrix3 := matrix£ ; 

for a3 := 1 to count do 

begin 

for b3 : = 1 to level si do 
beg in 

for c3 := 1 to level si do 

arraySC c3U : = mat r i x2 Cb3, a33 ; 

for h3 := 1 to level si do 
beg in 

score := 0 ; 

for k3 : = 1 to level si do 
beg in 

integerl : = array 5 C k.31 * mat r i x2 Ck3, h3U 
score : = score + integerl ; 



end ; 

result Cb3, h31 := score ; 

end ; 
end ; 

rnatrix£ := result ; 
end 5 

result : = mat r i x 2 ; 

for p3 : = 1 to levelsl do 
beg i n 

row := 0 ; 

for f 3 : - 1 to levelsl do 

row := row + resu 1 1 C p3, f 31 ; 

vector base Cp3U s= row ; 
end ; 

row 1 : = 0 ; 

for p3 : = 1 to levelsl do 

rowl : = rowl + vec tor base Cp3] ; 
for p3 := 1 to levelsl do 

vectorbaseCp3] := vectorbase [p3] / rowl ; 

window (51 , 1 , Q0, 21 ) ; 
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text background ( white ) ; 

for al := 1 to level si do 
beg in 

got oxy (S3, a 1 + 3 ) ; 

write ( vectorbaseEal] :5:3 ) ; 

end ; 

window < 1,13,80, £4 ) ; 

text background (14) ; 

integerl : = 0 ; 

for a 1 : = 1 to level si do 

beg i n 

score : = 0 : 

for bl := 1 to levels 1 do 
begin 

integerl := matr i x3 Cal , bl 3 * vectorbaseCbi] 

score : = score + integerl ; 
and ; 

lamdalCalD := score ; 
end ; 

integerl : = 0 ; 

for a 1 : = 1 t o 1 eve 1 s 1 do 

begin 

vectors Cal 3 := lamdalCalU / vector base Cal J ; 

integerl : = integerl + vectors Cal 1 ; 

end ; 

lamda := ( integerl / levelsl ) ; 

if levelsl = 1 then 

levelsl : =3 ; 

ci := ((lamda - levelsl) / (levelsl - 1 )) 5 

case levelsl of 



1 


r i 


= 0. 00000000001 


c. 


Ri 


= 0.00000000001 


>-J» 


Ri 


= 0 . 5Q ; 


4 


Ri 


= 0. 90 ; • 


5 


Ri 


= 1. 12 ; 


6 


Ri 


= 1 . 24 ; 


7 


Ri 


= 1 . 32 ; 


Q 


Ri 


= 1.41 ; 


9 


Ri 


= 1.45 ; 


10: Ri 


= 1.49 ; 


11: Ri 


= 1.51 ; 


IS: Ri 


= 1.48 ; 


13: Ri 


= 1 . 56 ; 


14: R i 


= 1 . 57 ; 


15: Ri 


= 1.59 ; 



end ; 
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cr 



c i / r i 






w i ndow ( 1 , 13, 30, 23 ) ; 
text background (14) 5 

clrscr ; 

vectortari := vector base ; 
repeat 

count 1 := 0 ; 

for a : = 1 to ( level si — 1 ) do 

beg in 

if vectorbaseCa] < vector base Ca +1 1 then 
beg in 

exchange3Cal := vect or base Cal ; 
vectorbaseCa] := vectorbaseCa+l] ; 
vectorbaseCa+ll := exchange3Cal ; 
exchangeACal := array 2 Cal ; 
array£ Cal s= array£Ca+l] ; 
array£Ca+l] : = exchangeACal 5 
count 1 := count 1 + 1 ; 

end ; 
end ; 

until count 1 = 0 ; 

for al : = 1 to levelsl do 
beg i n 



gotoxy ( ( ( 5 * al ) ) , 9 ) ; 

write (copy ( array 2 Call, 1,3) ) ; 

end ; 

for al := 1 to levelsl do 
begin 

gotoxy (( (5* al ) ) , 10 ); 

write < vect orbase Cal 1 : 3 : 2) ; 

end ; 

text background ( green ) ; 

for al := 1 to -levelsl do 
begin 

gotoxy ( ( 5 * al ),S ) ; 

write ( 1 ’ ) ; 

end ; 

for al : = 1 to problem, Levels do 
beg in 

gotoxy ( (5 + ( 5 * al )) ,9 ) ; 

if ( round < vectort an Cal 1 * 10 ) > 7 ) then 

istograrn := 7 

else 

istograrn := ( round < vect or tan Cal 1 * 10 ) ) 
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for bl s = 1 to istogram do 
beg i n 

gotoxy ( ( ( 5 * a 1 )) , (9 -bl) ) ; 

wr ite ( 1 ’ ) ; 

end ; 
end ", 

text background ( 14 ) ; 

text co lor ( blue ) ; 

gotoxy ( 36, 1 ) ; 

write < 1 ** larnda rnax 
gotoxy ( 36, 2 ) ; 

write ( ’ consistency index 

gotoxy (36, 3) ; 

write ( ’ randomized index 

gotoxy (36,4) ; 

write ( 1 consistency ratio 

gotoxy (36,6) ; 

write (’•*•* there is some st at i st i ca 1 1 ) ; 

gotoxy ( 36,7) ; 

write ( 1 inconsistency in your evaluation- 1 ) ; 

Gotoxy (36,3) ; 

write (’ (study highlighted values for ’ ) ; 

gotoxy (36, 9) ; 

write (’ probable inconsistent evaluation) ’ ) ; 

text co lor ( black ) ; 

for p3 := 1 to level si do 
beg in 

for f 3 : = 1 to level si do 
begin 

result Cp3, f31 := 0 ; 

rnatr i x2 Cp3, f 31 : = 0 ; 

end 
end ; 

gotoxy (2, 11) ; 
text co lor ( blue ) ; 

write (’do you want to modify the evaluation of the 
criteria (y/n) ? 1 ) ", 

Textcolor ( black); 
repeat 

got oxy ( 65, 11) ; 

clreol ; 

read ( answer ) ; 

answer : = stupcase ( answer ) ; 

unt i 1 ( ( answer = ’ y’ ) or ( answer = 1 n’ ) ) ; 

window (1,13,80,23 ); 
text background (14) ; 



= 1 , 1 arnda : 4 : 2 ) ; 

= 1 , ci : 4 : 2 ) ; 

= 1 , r i : 4 : 2 ) ; 

= 1 , cr : 4 : 2 ) ; 
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if answer = ’ y’ then 
begin 

clrscr ; 

error := false ; 
repeat 



got oxy 


( 


£,£> ; 


c 1 reo 1 
wr i t e 


5 

( ’ 


name of the first criteria 


Read ( 


answer ) ; 


answer 


: = 


copy (answer, 1,4) ; 


answer 


; = 


stupcase ( answer ) ; 


for al 


: = 1 


to level si do 


beg in 

answer4 


:= copy ( arrayE Cal 3 , 1 , 4) ; 



if ( answer 4 = answer ) then 
error : = true; 

end ; 

ant i 1 error ; 
a : = 0 ; 

repeat 

a : = a + 1 ; 

answer4 := copy < arrayc'Ea], 1, 4) 
unt i 1 ( answer = answer4 ) ; 

criterial : = arrayc Call ; 
rt 3 : 



error := false ; 
repeat 

got oxy ( £, 3) ; 

clreol ; 

write ( ’name of the second criteria 
Read ( answer ) ; 

answer := stupcase ( answer ) ; 

answer := copy (answer, 1 , 4) ; 

for bl := 1 to level si do 



beg in 

answer4 : = copy ( arraySCbl 3 , 1 , 4) ; 

if ( answer4 = answer ) then 
error : = true; 

end ; 



unt i 1 error ; 

answer4 : = copy ( criterial, 1, 4) ; 

if ( answer = answer4 ) then 
goto ert 3 ; 



b : = 0 ; 
repeat 

b s = b +1 ; 

answer4 := copy ( array£Cb3 
unt i 1 ( answer4 = answer ) 



criteria^ 



array E [ bH 



1,4) 



f 



window ( 1,1, 50, 12) ; 

text background (bl ue) ; 

matrixS := rnatrix3 ; 

text co lor ( red + IS ) ; 

gotoxy ((2+<b*8)),3+a) ; 

write ( rnatr i x2 Ca, bl : 4 : £ ) ; 

text col or ( black ) ; 

window (1,13,80,23 ); 
text background (14) ; 

clrscr ; 
repeat 

gotoxy ( 1,2 ) ; 

write ( ’ is ’ , criterial , ’ more important than 

criteria2 , ’ (y/n) ? ’ ) ; 

Gotoxy ( 75, 2 ) ; 

clreol ; 

read ( answer ) ; 

answer : = stupcase ( answer ) ; 

clreol ; 

until ( ( answer = ’ y’ ) or ( answer = ’ n’ ) ) ; 

if answer = ’ y’ then 

begin 

gotoxy ( 1,3 ) ; 

write ( ’ how many times is ’ , criterial, 1 more 

important than ’ , criteria2 , ’ ? ’ ) ; 

gotoxy ( 1,4) ; 

write ( ’ ( See note below ’ ) ; 

info ; 

repeat 

gotoxy ( 75 , 3 ) ; 

clreol ; 

read ( answer ) ; 

val ( answer , answers , code ) 5 

until ( ( code = 0 ) and ( answers > 0 ) ) ; 

rnatr ix2Ca, b 3 := answers ", 

rnatr i x2 Cb, al := ( 1 / answers ) ; 

mat r i x2 [a, a 3 : = 1 ; 

window ( 1,1, 50, 12 ) ; 

text background ( bl ue) ; 
t e x t co 1 or ( white ) ; 

gotoxy ( (2+(b*Q)) , 3 + a ) ; 

write ( answer3:4:2) ; 

gotoxy ( 2+(a*8),(3 + b ) ) ; 

write ((1 / answerS) : 4 : 2 ) ; 

end ; 

window (1,13,80,23 ); 
text background (14) ; 

text co lor ( black ) ; 
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’ n 1 then 



i f answer = 
begin 

got oxy ( 1,3 ) ; 

write ( ’ how many times is ’ , criteria£, 

’ more important than ’ , criteria! , ’ ? ’ ) ; 
got oxy ( 1,4); 

write ( ’ ( See note below ’ ) ; 

info ; 

repeat 

got oxy (75, 3 ) ; 

clreol ; 

read ( answer ) ; 

val ( answer , answers , code ) ; 

until ( ( code = 0 ) and ( answers <> 0 ) ) ; 

rnatr ix2Ca, bH : = (1/ answerS) ; 
rnatrixclCb, a3 := answer3 ; 
matr i x2 Ca, a] : = 1 ; 

window ( 1, 1,50- 12 ) ; 

text background ( bl ue) ; 

gotoxy ( ( 2 +( b * 8 ) ) , 3 + a ) ; 

write ((1/ answerS) s 4 s 2) ; 

gotoxy ( 2 + (a * Q ) , ( 3 + b ) ) ; 

write ( answer3:4:2 ) ; 

end ; 

window (1,13,80,23 ); 
text background (14) ; 

gotoxy (1,2) ; 

clreol ; 
gotoxy (1,3 ) ; 

clreol ; 

goto ert 1 

end ; 
end ; 

window (1,1, 80, 25) -, 
gotoxy (1,1) ; 

end ; 

END ; 



OVERLAY PROCEDURE PI RECTI (var array2 : t i 1 1 e ; var w : i nteger 

var vectortan : vectors 1 ) 

LABEL 

ert 1 , ert 3 ; 
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CONST 



count = 3 ; 



VAR 



b*i, c i d j,, h , k , f , P'-'i 1, a 1 , bl , 
levelsl, i, count 1, istogram s integer ; 
row, rowl, larnda, ci, ri, cr, 
score, answer3, integer 1 : real ; 

array5, vectorbase, exchanges : vectorsl ; 
st : string C93 ; 

ch : char; 

larndal , vectors : array Cl- -50] of real ; 
exchanged : array C 1 -- £03 of name ; 

matrix£, result , matrixS : array C 1 . . £0, 1 - - £03 of real ; 
answerA : name ; 



PROCEDURE INFO ; 

BEGIN 

window (1,13, 80, £3 ); 
text background (14) ; 

clrscr ; 

textcolor ( red ) ; 

got ox y (1,10) ; 

writeln ( ’“note : be as accurate as possibl 

— any # between 0 and 10 e- g, £. 

Writeln ( 1 a possible scale for inexac t is : 1 ) ; 

writeln ( 1 3 = weakly important than ,5 = strongly more 

import an than 1 ) ; 

writeln ( 1 7 = very strongly more imp- than 

9 = absolutely more imp- than 1 ) ; 

END ; 



BEGIN (* main *) 

window ( 1,1,50, 1£ ) ; 

text background ( blue) ; 
c 1 rscr ; 

wi ndow (51 , 1 , 00, 1 £ ) ; 
text background (white ) ; 

clrscr ; 

window (1,13, 00, £3 ); 
text background (14) ; 

clrscr ; 
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fD 






window (1,24,80,25 ); 
text background (white) 
clrscr ; 

text co lor ( black ) ; 

got oxy (2,1) ; 

write ( ’step 3 : priorit izat ion of evaluation criteria’ ) 

got oxy ( 2,2) ; 

write ( ’direct input of criteria weights ’) ; 

levelsl := w ; 
if levelsl <> 0 then 

begin 

window ( 1, 1,50, 12 ) ; 

text background ( bl ue) ; 
clrscr ; 

window (51 , 1, 30, 21); 
text background ( white ) 
clrscr ; 

window (1,13,30,23 ); 
text background (14) -, 

clrscr ; 

if w = 1 then 

vectortanCw] : = 1 

e 1 se 
beg in 

for a3 := 1 to 5 do 

rnatr ix2 Ca3, a33 := 1 ; 

window ( 1,1,50,12 ) ; 

text background ( bl ue) ; 
text co lor ( white ) ; 

vector base : = vectortari ; 

levelsl := w ; 

got oxy ( 1,1) ; 

window (51, 1,80,21) ; 

text background ( white ) ; 

textcolor ( 0 ) ; 

got oxy (1,1) ; 

write ( ’ priority vector ’ ) ; 

for al : = 1 to levelsl do 

begin 

got oxy ( 2 , 3 +al ) ; 
write (copy ( arraySCal 3 , 1, 18) ) ; 

end ; 

for a 2 = 1 to levelsl do 
begin 

gotoxy(20, 3 + a ) ; 

write ( chr ( 179 ) ) ; 

end ; 
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for a := 1 to level si do 
begin 

got ox y (£7, 3 + a ) ; 

write ( chr ( 179 ) ) ; 

end ; 

ert 1 : 

info ; 

textcolor ( 0 ) ; 

gotoxy ( 2,2) ; 

write ( ’enter the weights of the criteria 
for a : = 1 to level si do 
beg i n 

gotoxy ( 2 , 2+a ) ; 

write ( arraySCa] ,’:’); 
end ; 



f or a := 1 to 1 eve 1 s 1 do 
begin 
repeat 

gotoxy ( length (array£Ca3 ) +5 , 2+a ) ; 

clreol ; 

read ( answer ) ; 

val ( answer , answer3 , code ) ; 

until (( code = 0 ) and ( answers > -1 ) 

(answers < 11) ) ; 

vector base Call : = answers ; 
end ; 



row 1 := 0 ; 

for pS : = 1 to level si do 

row 1 := rowl + vector base CpS] ; 

for pS := 1 to level si do 

vectorbaseCpS] := vectorbaseCpS] / rowl 

window (51, 1,30,21) ; 
text background ( white ) ; 

for al : = 1 to level si do 
begin 

gotoxy (22, a 1 +3 ) ; 

write ( vect orbase Cal ] : 5 : 3 ) ; 

end ; 

w i ndow ( 1 , IS, 80, 23 ) ; 
text background (14) ; 

clrscr ; 

vectortan := vectorbase ; 
repeat 

count 1 := 0 ; 

for a := 1 to ( level si - 1 ) do 




and 



1 1 1 



begin 

if vector base Call < vect or base Ca+ 1 3 then 
begin 

exchanges Ca3 := vect or base Cal ; 
vectorbaseCal := vect or base Ca+ 1 3 ; 

vectorbaseCa+l] := exchanges Ca3 ; 
exchange4Ca3 := array£ Ca3 ; 
arrays Ca3 : = arraySCa+13 ; 
arrayS Ca+ 13 := exchange4Ca3 ; 

count 1 := count 1 + 1 ; 

end ; 
end ; 

until count 1 = 0 ; 

for al := 1 to level si do 
begin 

gotoxy (( (5* al ) ) , 9 ); 

write (copy( arrayS Cal 3 , 1 , 3) ) ; 

end ; 

for al := 1 to levelsl do 
begin 

gotoxy (( (5* al ) ) , 10 ); 

write ( vectorbase Cal 3 : 3 : £) ; 

end ; 

t ext background ( green ) ; 

for al := 1 to levelsl do 
begin 

gotoxy ( ( 5 * al ),fl ) ; 

write ( 1 1 ) ; 

end ; 

for al : = 1 to levelsl do 
begin 

gotoxy ( (5 + ( 5 * al )) ,9) 5 

for bl : = 1 to round ( vect or base Ca 1 3 * 10 ) d 

begin 

gotoxy ( ( ( 5 * al )) , (9 -bl) ) 5 

write ( ’ ’ ) ; 

end ; 
end 

gotoxy ( 2 , 11 ) ; 
t ext background ( 14 ) 5 

text color ( blue ) ; 

write (’ do you want to modify the evaluation of 
the criteria (y’/n) ? f ) ; 

Text co lor ( black) ; 
repeat 

gotoxy ( 65, 11) 5 
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’ n’ ) ) 






c 1 reo 1 ; 

read ( answer ) ; 

answer := stupcase ( answer ) ; 

until ( (answer = 1 y 1 ) or ( answer = 
w i ndow ( 1 , 13, 80, 23 ) ; 
text background (14) ; 

if answer = 1 y’ then 
begin 

clrscr ; 
goto ert 1 ; 

end ; 
end ; 
end ; 

END ; 



INCLUSE FILE STEP3-2 



PROCEDURE SELECTCRITERIPi (var 

yar 

var 



var 

var 

var 



problem : easel ; 

vectorl : vector si ; 

vector^, vect or 3, 
vector4, vect or 5, 
vectorG, vect or 7 : vectors 
normvectorl : vect or g ; 
normvectorS : vectorn : 
nurnoferiteria : integer 



VAR 

integer ; 
vect or g ; 
vectorn ; 
integer ; 



r, a, d, c 
normvectorS 
norrnvect orS 
n urnofer i t er i a 1 



BEGIN 

for a := 1 to 125 do 
beg in 

norrnvect or 2 Cal : — 0 ; 

normvectorl Ca3 := 1 1 ; 

end ; 

f := nurnoferiteria ", 

for a s= 1 to problem. Levels do 

begin 

if problem. Sublevel 1 Call = 0 then 
begin 

normvectorl Cf3 := problem. Level 1 Call ; 
norrnvect orS C fl := vectorl Call ; 



f + 1 



1 



f : = 
end 
else 
beg in 

for b:= 1 to problem- Sublevel 1 Call do 

beg in 

if problem. Sublevel£Ca, b] = 0 then 
beg i n 

normvectorl Cf] := problem. Levels da, b] ; 
norrnvect or£ C f D : = vector2Ca, bD ; 
f := f + 1 ; 



end 
else 
beg in 
for c 
beg in 
case 



4 



end ; 
end ; 
end ; 
end ; 
end ; 
end ; 

nurnofcriteria : = 



= 1 to problem- Sub level £ C a, bD do 



a of 
beg in 

normvectorl CfD 
norrnvect or £ C f D 
f : = f + 1 ; 

end ; 
begin 

normvectorl CfD 
norrnvect or 2 CfD 

f : = f 4* 1 ; 

end ; 
beg i n 

riormvectorl CfD 
norrnvect or£ C f D 
f := f + 1 ; 

end ; 
beg i n 

normvectorl CfD 
norrnvect or £ C f D 
f : = f + 1 ; 

end ; 
beg i n 

normvectorl CfD 
norrnvect or£ CfD 
f : = f + 1 ; 

end ; 



: = problem- Levs 13 C b„ cD 
: = vectorSCb, cD : 



: = problem- Level 4 Cb, cD 
: = vector4Cb, cD ; 



: = problem- LevelSCb, cD 
: = vectorSCb, cD ; 



: = problem- Levels Cb, cD 
: = vectors Cb, cD ; 



: = problem- Level7 Cb, cD 
:= vector7Cb,cD ; 



f ; 



END ; 
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PROCEDURE FINAL-CRITERIA 



var normvector 1 
v ar n or rnvect o r £ 
var numofcriteria 



vect or g 
vect orn 
integer 



VAR 

a, b, number, start point : integer ; 

sum, precent : real 5 

answer s char ; 

numofcr iterial : integer 5 

norm vectors : vect or g ; 

norrnvectorS s vect orn ; 



PROCEDURE WRITECRITERI A 5 

VAR 



linex. rowx : intege'r 5 

BEGIN 

window ( 1, 1,30, 15) ; 

t ex t background ( blue ) ; 

text co lor ( white ) ; 

clrscr ; 

got ox y (3,2) 5 

write < ’the final criteria ( ’ 

and their weights are 
got ox y ( 1,4 ) ; 



n urnofcr iteria , 
> * * 



i = n urnofcr i t er i a 
: =: normvect or 1 ; 

:= normvect or £ ; 

n urno fcriteria do 
+ normvect or £ Ca] 5 
n urnofcr iteria do 



sum := 0 ; 
numofcr iterial 
normvect or 5 
norrnvectorS 
for a := 1 to 
sum : = sum 
for a : = 1 to 
begin 

normvect or£ Call : = normvect or £ CaU 
end ; 

linex := 3 5 rowx : = £ ; 

for a : = 1 t o n urnofcr i t er i a do 

begin 

if ( linex > 13 ) then 

begin 

1 inex : = 3 5 
rowx : =5 45 ; 



/ sum 



end ; 

gotoxy ( rowx, linex ) 5 

write (a, ’ - , Normvect or 1 CaU, normvect or£ CaU : 4 : £ ) 

linex := linex + 1 ; 

end 5 
END ,- 
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BEGIN (* main *) 

window ( 1,1, 80, 15) ; 

text background ( blue ) ; 

clrscr ; 

window ( 1,18,80,23) ; 

text background (14 ) ; 

clrscr ; 

window ( 1,24, 80, 8’5 ) ; 

t ext background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

gotoxy ( £, 1 ) ; 

write (’step 3 : prior it i zat ion of evaluation criteria ’) 
gotoxy (£, £) ; 

write ( ’determine the number of the criteria ’ ) ; 

start point s = nurnofcri teria ; 
wr i t ecr iter i a ; 

window ( 1,16,30,23) ; 

text background ( 14 ) ; 

clrscr ; 

textcolor ( black ) ; 

gotoxy ( 2,2) ; 

write (’do you want to reduce the number of the 
criteria (y/n)? ’ ). ; 

Repeat 

gotoxy (63,2) ; 

clreol ; 

read ( answer ) ; 

answer := stupcase ( answer ) ; 

until ( ( answer = ’ y’ ) or ( answer = ’ n’ ) ) ; 

repeat 

if answer = ’ y’ then 
beg i n 

gotoxy ( 2,2) ; 

clreol ; 

write ( ’you have two methods s’); 
gotoxy ( 4,4); 

write ( ’ 1- Define the number of the 

criteria that you want to use ’ ) ; 
gotoxy ( 4, 5) ; 

write ( ’ 2- Define the sum ( ’/ ) that you wish ’ ) 

gotoxy ( 2, 7 ) ; 

write (’method that you wish (1 or 2) ? ’ ) ; 

Repeat 

gotoxy ( 50, 7) ; 
clreol ; 
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read ( answer ) ; 

until ( ( answer = ’ 1 ’ ) or ( answer = ’ 2’ ) ) ; 

if answer = ’ 1’ then 

begin 



gotoxy ( 2,2) ; 

write (’the number of the criteria that you wish 
(up to’ , start point , ’ ) ? ’ ) ; 

Repeat 

gotoxy ( 60 , £ ) ; 

c 1 reo 1 ; 

read ( number ) ; 

until ( number <= start point ) ; 

nurnofcriteria := number ; 
end ; 

if answer = ’ 2’ then 
beg in 

clrscr ; 



gotoxy ( 2, 2 ) - 



write 


( 


’ ent er 


the value ( 7 -) that 


you wish 


read ( 


precent 


• n 




sum : = 


0 


5 






a : = 0 


5 








repeat 










a : = 


a 


+ 1 ; 






sum 


: = 


sum ■+• 


( norrnvect or£ Call * 


100 ) ; 


b :== 


a 








unt i 1 


( 


sum > 


precent ) ; 





nurnofcriteria : = ( b - 1 ) ; 

end ; 
end ; 

wr i t ecr i t er i a ; 
window ( 1 , 16 , 80 , 22 ) ; 

clrscr ; 

text co lor ( black ) ; 

gotoxy (2,2) ; 

write (’do you want to change the number of the 
criteria (y/n) ? ’ ) 5 

Repeat 

gotoxy ( 70, 2 ) ; 



read ( answer ) ; 

answer : = stupcase ( answer ) ; 

until ( ( answer y’ ) or ( answer = ’ n’ ) ) ; 

if answer = ’ y’ then 
begin 

nurnofcriteria : = nurnofcr i terial ; 
norrnvectorl : = norrnvect or 5 ; 

norrnvectorS s = norrnvector6 ; 

clrscr ; 
end ; 

until ( answer = ’ n’ ) ; 

END ; 
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INCLUDE FILE STEP4 



PROCEDURE SOLVEMITHflHP ; 

LABEL 

telos3x ; 

PROCEDURE DISPLAYFINALS ; 

BEGIN 

window (1,1,80,23) ; 

text background ( blue ) ; 

clrscr . ; 

window (1,24,80,25) ; 

text background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

got oxy (2,1) ; 

if index then 

write ( ’step 5 : direct input of the weights’ ) 
else 

write ( ’step 4 : individual evaluation of 

alternatives’ ) ; 

got oxy ( 2, 2) ; 

write ( ’ f inal result’ ) ; 

window (1,1,80,23) ; 

text background (blue ) ; 

clrscr ; 

text co lor ( white ) ; 

gotoxy (2,3) ; 

write ( ’ final solution ’ ) ; 

for al :== 1 to problem. Numofal ternat ives do 
begin 

text co lor ( white ) ; 

gotoxy ( ( ( 5 * al ) ) , 19 ) ; 

write ( copy ( problem. Al ternat ives Cal D , 1, 3) ) ; 

gotoxy ( ( ( 5 * al ) ) , 20 ) ; 

textcolor ( red ) ; 

write ( al tvector 1 CalD :3:2 ) ; 

end ; 

text background ( red ) ; 

for al := 1 to problem. Numofal ternat ives do 
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begin 

gotoxy ( <5 + ( 5 * al )) , 17 ) 



end ; 

unt i 1 count = 0 ; 
END ; 

BEGIN (* main ■*) 



if index then 
beg in 

altemat ivesl := problem, alternatives ; 

Evaluates ( altemat ivesl , alt vector , 

problem. Nurnof a 1 1 ernat i ves , norrnvectorl, ax) 



altemat ivesx := problem, alternatives ; 
altvectorx := alt vector ; 

altvectorl : = alt vector : 

End 
el se 
beg i n 

if norm. Speci al i zed then 

alt matrix := specf ile£. ftltrnatrix ; 
if indexE then 
begin 

for ax := 1 to nurnof criteria do 
beg i n 

if norm. special i zed Then 
beg i n 

if specfileE. normindex Cax] <> narnex Then 
goto telosSx ; 

end ; 

al ternat ivesl := problem. Alternatives ; 
evaluatel ( a 1 t ernat i ves 1 , alt vector , 

problem. Nurnof al ternat i ves , 
norrnvectorl, ax) ; 

for b : = 1 to problem. Nurnof altemat i ves do 
altmatrix C b, ax 1 := a 1 1 vector Cb'J : 

telosSx : 

end ; 

if norm. Special i zed then 
beg in 

specf i 1 e£. El ect re. Numoftries : = 

solut ion. Electre. Numoftries ; 
specf i lee!. Electre. Status := solut ion. Electre. Status 
specf i leE. Ahp. Status := solut ion. Ahp. Status ; 
specf i leE. Ahp. Numoftries : = sol ut ion. Ahp. Nurnof tries 

specf i lee!. Altmatrix := altmatrix ; 
writespeef ile ; 
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end 

end 

else 



begin 

alternatives! := problem. ftlternat ives ; 
direct£a ( alternat ivesl , alt vector ? 

problem. Nurnof a 1 t ernat i ves, norrnvectorl, ax) ; 
if norm. Special i zed then 
beg i n 

specf i leE. Elect re. Nurnof tries : = 

sol at ion. Electre. Numoftries ; 



specf i le£. Alt mat ri x : = alt mat r i x 

end ; 
end ; 

if not norm. Special ized then 
sort res a 1 1 
else 
beg in 

b := 0 ; 

for a : = 1 to 3 do 
begin 

if specf i lec. Final index Ca] then 
b : = b *+* 1 ; 

end ; 

if b = norm. Nurnof users then 
begin 

sort result ; 

specf i le£. Completedal 1 : = true ; 

end ; 
end ; 
end ; 



if not norm. Spec i a 1 i zed then 
d i sp 1 ay final s 



e 1 se 
begin 

i f specf i le£. Completedal 1 
begin 

displayf inals ; 
specf i 1 e£. Ah p. St at us : = 
specf i le£. Numofcr it er ia 
specf i le£. NormvectorS : 
specf i le£'. Norrnvectorl : 
specf i leS. Nurnof al t ernat 
problem. Nurnof alt ernat ives ; 



then 



true 5 

s = numofcr iter i 
= normvectorS ; 

= norrnvectorl ; 
ives : = 



a 
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wr i tespecf i le ; 

answer := concat ( ’ . ’ , Inte ) ; 

problnarne := concat ( prob 1 name , answer ) 
end ; 
end ; 

END ; 

PROCEDURE CQNPUTEALTERNATIVE5 ; 

LABEL 

telosS ; 

PROCEDURES ALLUSERS ; 

LABEL 



telosfcx ; 

BEGIN 



if met hod x = ’elect re 1 then 
begin 

count irnes := solution. Electre. Nurnoftries ; 
i f norm. Nod i fy then 
beg in 

if count irnes < norm. Nod i fyt irnes then 
beg in 

count i rnes : = count i rues + 1 ; 

clrscr ; 

solution. Electre. Status := true ; 
solution. Electre. Nurnoftries := count irnes 
electre ; 
end 
e 1 se 
beg in 

clrscr ; 
gotoxy (5,9) ; 

write ( ’you cant- modify your output ’ ) 

gotoxy ( 5, 10 ) ; 

write ( ’hit any key to continue ’) ; 

read ( kbd, ch ) ; 

goto telosSx ; 
end 5 
end 
else 
begin 

if count irnes = 0 then 
begin 

count irnes := count irnes + 1 ; 



121 



clrscr ; 

solution. Electre. Status := true ; 
sol Lit ion. Electre. Numoftr ies : = count irnes 
electre ; 
end 
else 
beg i n 

clrscr ; 
gotoxy ( 5, 9) ; 

write ( ’you cant modify your output 1 ) 

gotoxy ( 5, 10 ) ; 

write ( ’hit any key to continue ’ ) ; 

read < kbd,ch ) 5 

goto telosSx ; 
end ; 
end ; 
end 
else 
beg i n 

count irnes := solution. Ahp. Numoftr ies ; 

i f norm . Mod i f y t hen 

begin 

if countimes < norm. Mod i fyt irnes then 
begin 

countimes : = countimes + 1 ; 

index s = false ; 
if methodx = ’ ahp’ then 
indexS := true 
else 

indexE := false ; 
solvewithahp ; 
end 
e 1 se 
beg i n 

clrscr ; 
gotoxy ( 5, 9) ; 

write ( ’you cant modify your output ’ 
gotoxy . ( 5,10 ) ; 

write ( ’hit any key to continue ’ ) ; 

read ( kbd,ch ) ; 

goto telos 6 x 5 
end 5 
end 
e 1 se 
begin 

if count irnes = 0 then 
beg in 

count irnes := count irnes + 1 ; 

index := false ; 
if methodx = ’ahp’ then 



index2 : = true 
else 

index2 := false ; 
solvewithahp ; 
clrscr ; 
end 
e 1 se 
begin 

clrscr ; 

got oxy (5,3) ; 

write ( ’you cant modify your output ’ ) ; 

gotoxy ( 5, 10 ) ; 

write ( ’hit any key to continue ’) ; 

read < kbd, ch ) ; 

goto telosSx ; 
end ; 
end ; 
end ; 
telosbx : 

END ; 



BEGIN <* main *) 



stringl2Q := ’step 4 : individual evaluation of 

alternatives’ ; 
diskstatus ; 
clrscr ; 

window ( 1,24,80,25) ; 

text co lor ( black ) ; 

text background ( white ) ; 

gotoxy ( 2, 2) ; 

clreol ; 

write ( ’ ident if icat ion of the problem 

methods : ahp, electre, direct’ ) ; 

window ( 1,13,30,23) ; 

text background ( 14 ) ; 

clrscr ; 
read 1 ; 

read pro blernf i le ; 
read2 ; 

readnormf i le ; 
read3 ; 

if not norm, Special i zed then 
begin 

if ( not exist (pruser) ) then 
beg in 

clrscr ; 

write ( ’ you must compute first the criteria ’ ) 

wait ; 



12; 



1 



goto telosS 
end ; 
end 

e 1 se 
beg in 

readspecfi 1 e ; 
if ( not specf i 1 e 2 . Cornpl et ed ) then 
beg in 

clrscr ; 

write ( ’ the evaluation of the criteria is 
not yet completed ’ ) ; 

wa i t ; 

goto telosS ; 



end ; 
end ; 



if ( not norm- Special i zed ) then 



beg i n 

readsolut iorif i le 
n urno fcr iteria s = 
norrnvect or 1 : = 

norrnvect or 2 : = 

end 
e 1 se 
begin 

nurnofcriteria : = 
norrnvect or 1 : = 

norrnvect or 2 : = 

end ; 



so 1 ut i on. Numof cr i t er i a ; 
sol ut ion. Norrnvect or 1 ; 

sol ut ion. Norrnvect ore : 



specf i le2. Numof cr i t er i a ; 
specf i 1 e2. Norrnvectorl ; 
specf i le 2 . Norrnvect or£ ; 



read 4 ; 
read 5 ; 

wr i t enorrnf i 1 e ; 

if ( norm. Spec i a 1 i zed ) then 
beg i n 

solution. Electre. Numoftries : = 

specf i le£. Electre. Numoftries ; 

so 1 ut ion. El ect re. St at us : = specf i 1 e2. E 1 ect re. St at us ; 
so 1 ut ion. Ahp. St at us s = specf i le£. Elect re. Status ; 
solution. Ahp. Numoftries := specf ileE. Electre. Numoftries 
a := 0 ; 
repeat 

a s = a + 1 ; 

until ( narnex = norm. UsersnarnesCa] ) ; 

specf i 1 e2. Fina 1 index Ca 3 := true ; 
end 5 

all users ; 



telosS: ; 

END ; 
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INCLUDE FILE STEP4-1 



OVERLAY PROCEDURE EVALUATE 1 (VAR ALTERNATIVES : TITLE1 ; 

VAR ALTVECT0R3 : VECTORF ; 
VAR W : INTEGER ; 

VAR NORMVECTOR 1 s VECTORG ; 
VAR AX : INTEGER ) ; 

LABEL 

ert , ert 4 ; 

CONST 

count = 3 ; 

VAR 

matri x2, result , matri x3 : array Cl - - £0, 1 • - 20! Of real ; 

array5, ale vect or 5, exchanges, alb vectors : vectorf ; 

1 arndal , vectors : vectorf ; 
exchanged, al ternat ivesk : tit lei ; 

nurnof alt ernat i ves, I , count 1 , x i , y 1 , al , b 1 , 
a3, b3, c3, d3, h3, k3, f 3, p3, 1 s integer ; 
score, answers, integerl, row, rowl, 
larnda, ci , r i , cr : real ; 
st : string C9! ; 

ch : char; 



PROCEDURE INF01 



beg i n 

window ( 1 , yl+1 , 80, £3) ; 
text background (14) ; 

textcolor ( red ) ; 



got oxy ( 1 , 
writeln ( 

writeln ( 
Writeln ( 
writeln ( 

wr i t e 1 n ( 

Textcolor 
end ; 



5) ; 

’"note : be as accurate as possible 

— any # greater than 1 ’ ) ; 

5 e. g ,2. 45 or 15-3 ’ ) ; 

’ a possible scale for inexact is: 3 ) 

’ 3 = weakly important than , 5 = strong 

import an than ’ ) ; 

’ 7 = very strongly more imp- than 

9 = absolutely more imp. than’ ) ; 

( black ) ; 



iy 



more 



BEGIN 



nurnofa It ernat i ves := w ; 
case nurnofa 1 ternat i ves of 
1 , 2, 3, 4, 5, 6 , 7 : begin 

xl := 50 ; yl : = 1 2 ; 
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a, 9 , 10, 11 



12, 13, 14, 15 



end ; 



end ; 
begin 

x 1 : = 55 : y 1 : = 1 3 ; 

end ; 
beg in 

x 1 := 70 ; yl : = 15 ; 

end ; 



nurnofalternat ives := w ; 

if numof al t ernat i ves <> 0 then 

begin 



window (1, 1 , x 1 , y 1 ) ; 
text background (blue) ; 
clrscr ; 



window ( x 1 + 1 , 1 , 80, y 1 ) ; 
text background (white) ; 
clrscr ; 

window ( 1 , y 1 + 1 , 80, £3) ; 
text background (14) ; 

clrscr ; 

window ( 1,24,80,25) ; 

text background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

gotoxy (2,1) ; 

write (’step 4: individual evaluation of alternatives ’) 
gotoxy ( 2, 2 ) ; 

write ( ’evaluation of alternatives according to 
criterion ’ , norrnvect or 1 [ax ] , ’ rnethodx’ ) ; 

w i nd o w (1, 1, x 1 , y 1 ) ; 
text background ( blue ) ; 

text co lor ( white ) ; 

alt vectors := altvectorS ; 
nurnofalternat ives := w ; 
gotoxy ( 1 , 1 ) ; 

write (’ pairwise comparison ’) ; 

gotoxy ( 10,3 ) ; 



for al := 1 to nurnofalternat ives do 

write ( copy ( alternat ivesCal], 1, 5) :5 , ’ ’ ) 

for al := 1 to nurnofalternat ives do 
begin 

gotoxy (2 , 3+al ); 

write (copy ( alternat ivesCal], 1, 5) :5 ) ; 

end ; 
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window (xl+ 1 , l, 80 , yl ) ; 
text background ( white ) ; 

tsxtcolor ( 0 ) ; 

got oxy (1,1) ; 

write ( ’ priority vector 3 ) ; 

for al := 1 to riLirnofalternat ives do 
beg i n 

got oxy ( 2,3 + al ) 5 

write (copy ( alternat ivesEal] , 1 , 18 ) ) ; 

end ; 

for a := 1 to numofalterriat ives do 
beg in 

got oxy (20 , 3 + a ) ; 

write ( chr ( 179 ) ) ; 

end ; 

for a := 1 to 
beg i n 

got oxy ( 27, 3 
write ( chr 
end ; 

window (1, yl + i, 80 , 23 ) 5 
text background ( 14 ) ; 

clrscr ; 



nurnof alternat ives do 

+ a ) ; 

< 179 ) ) ; 



infol ; 

for a := 1 to nurnof alt ernat i ves do 
matrixSEa, a] : = 1 ; 



for a := 1 to ( nurnof a 1 1 ernat i ves - 1 ) do 

beg in 

criterial := alternat ivesEa] ; 

for b := 1 to ( numofalterriat ives - a ) do 



beg i n 

criteria 2 := alternat ivesEa+b] ; 
repeat 

text co lor ( 0 ) ; 



got oxy (1,2) ; 

write ( 3 is ’ , criterial , ’ better 

criteria£ , 1 <y/n) ? 

Got oxy ( 64 , d ) ; 



clreol ; 

read ( answer ) 5 

answer := stupcase ( answer ) ; 

clreol ; 

until ( ( answer = ’ y’ ) or ( answer 

if answer = 3 y 3 then 

begin 

textcolor ( black ) 



rr 



than 
’ ) 



) ) 






got oxy ( 1,3 ) ; 

write ( ’ how many times is ’ , criterial, ’ better 

than ’ , criteria^ , ’ ? ’ ) ; 

Got oxy (1,4) ; 

write ( ’ ( see note below ) ’ ) ; 

repeat 

got oxy ( 64 ,3 ) ; 

clreol ; 

read ( answer ) ; 

answer s = stupcase ( answer ) ; 

val ( answer , answerZ , code ) ; 

until ( ( code = 0 ) and ( answer3 > 0 ) ) ; 

rnatrixSCa, a+b3 := answers ; 

matr i x£ Ca+b, all := ( 1 / answers ) ; 

rnatrixcCa, a] := 1 ; 

w i ndow ( 1 , 1 , x 1 , y 1 ) ; 
t ex t background ( blue ) ; 

got oxy ( ( £ +( (a +b ) •* 8 ) ) , 3 + a ) ; 

text color ( white ) ; 

write ( answerS : 4 : £) ; 

got oxy ( £ + (a * Q ) , ( 3 +( a + b ) ) ); 

write ((1 / answerS) : 4 : £ ) ; 

end ; 

window ( 1, y 1+1, 80, £3) ; 

t ex t background ( 14 ) ; 

textcolor ( black ) ; 

if answer = 1 n’ then 
begin 

got oxy < 1,3 ) ; 

write ( 1 how many times is ’ , criteria£, ’ 

better than ’ , criterial , ’ ? ’ ) ; 

Got oxy ( 1,4) ; 

write ( ’ ( see note below ) ’ ) ; 

repeat 

gotoxy(64,3 ) ; 

clreol ; 

read ( answer ) ; 

val ( answer , answers , code ) ; 

until ( ( code = 0 ) and ( answers <> 0 ) ) ; 

mat r i x£ Ca, a+bU :=(!/ answerS) ; 
mat r i x£ Ca+b, all := answerS ; 
matrixSCa, a] := 1 ; 

window ( 1 , 1 , x 1 , y 1 ) ; 

text background ( blue ) ; 

textcolor ( white ) ; 
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+ a ) 



7 



gotoxy ( ( £ +( (a +b ) * 8 ) ) 

write ((1/ answer3) : 4 : £) ; 

gotoxy ( £ + (a * 0 ) , ( 3 +( a 

write ( answers : 4 : 2 ) ; 

end ; 



b ) 



window ( 1 , y 1 + 1 , 00 , £ 3 ) ; 

text background ( 14 ) ; 

gotoxy ( 1,2 ) ; 

clreol ; 
gotoxy (1,3) ; 

clreol ; 

gotoxy (1,4) ; 

clreol ; 
end ? 
end ; 



mat r i x£ Enurnof a 1 1 ernat i yes, nu m of a 1 1 ernat l ves j 
ert : 



1 ; 



(* matrix multiplication *) 

rnatrix3 : = rnatrix£ ; 

for a3 := 1 to count do 

begin 

for b3 s= 1 to numofal ternat i ves do 
beg i n 

for c3 : = 1 to numofal ternat i ves do 
arrays Cc33 := matr i x£ Cb3, a33 ; 

for h3 : = 1 to nurnofal ternat i ves do 
begin 

score : = 0 ; 

for k3 : = 1 to nurnofal ternat i ves do 
beg in 

integerl : = arrays Ck33 * rnatr i x£ Ck3, h33 ? 

score : = score + integerl ; 
end ; 

result Cb3, h33 := score ; 

end ; 
end ; 

matrixS : = result ; 
end ; 

result s- rnatrixS 5 
(■* normalise vector *) 



for p3 := 1 to numofal ternat i ves do 
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beg in 
row : = 

for f 3 : = 1 to nurnof al ternat i ves do 
row : = row + result Cp3, f33 ; 

a 1 1 vector5 Cp33 : = row ; 
end ; 

rowl := 0 ; 

for p 3 : = 1 to nurnof al ternat i ves do 
rowl : = rowl + a It vectors Cp3 3 ; 

for p3 := 1 to nurnof al ternat i ves do 
beg in 

alt vector5 Cp33 := a 1 t vectors C p33 / rowl ; 

end ; 

window ( x 1 + 1 , 1 , 80, y 1 ) ; 

text background ( white ) ; 

text col or ( black ) ; 

for al : = 1 to numeral ternat i ves do 
begin 

gotoxy (££, al+3) ; 

write ( al t vectors C a 13 :5:3 ) ; 

end 5 

window ( 1 , y 1 + 1 , 80, S3) ; 

text background < 14 ) ; 

clrscr ; 

(■* cornput lrnax and the other data *) 



integerl := 0 ; 

for al:= 1 to nurnof a 1 ternat i ves do 
beg in 

score : = 0 ; 

for bl : “ 1 to nurnof al ternat i ves do 



beg in 

integerl := mat r i x3 Ca 1 , bl 3 * al t vectors Cbl 3 
score : = score + integerl ; 
end ; 

lamdalCal3 score ; 

end ; 



integerl := 0 ; 

for al : = 1 to nurnof al ternat i ves do 
beg in 

vectors Cal 3 : = larndalCal3 / a 1 1 vect orS Ca 1 3 ,- 

integerl : =* integerl + vector£Cal3 ; 
end ; 

larnda := ( integerl / numofal ternat i ves ) ; 

if nurnof al ternat i ves = 1 then 

nurnof al ternat i ves : =£ ; 
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ci s = < ( larnda- 


-nurnof a 1 1 ernat i ves ) / (nurnof al t ernat 


case 


nurno f alternat 


ives of 


1 : 


r*i 


= 


0. 00000 1 ; 


C! a 


Ri 


= 


0.000001 ; 


uJ S 


Ri 


=r 


0. 58 


? 


4: 


Ri 


= 


0. 90 


5 


5 : 


Ri 


= 


1. 12 


! 


6: 


Ri 


= 


1. 24 




7: 


Ri 




1 a 32 


■ 


8: 


Ri 


= 


1.41 


? 


9: 


Ri 


= 


1. 45 




10 


Ri 


= 


1. 49 


5 


1 1 


Ri 


= 


1. 51 




12 


Ri 


= 


1. 48 


5 


13 


Ri 


- 


1. 56 


? 


14 


Ri 


= 


1. 57 




15 


Ri 


= 


1. 59 




End ; 


! 








cr : = 


c i / x 


'i 


5 





window ( 1 , y 1 + 1 , 80 , £ 3 ) ; 

alt vector 6 := alt vector 5 ; 

alternat ivesk := alternatives ; 
repeat 

count 1 : = 0 ; 

for a := 1 to ( nurnof a 1 1 ernat i ves - 1 ) do 



begin 

if alt vectors Ca] < 
beg in 

exchanges Ca] 
alt vector 5 [all 
alt vectors Ca +1 ] 
exchanged Call 
alternat i ves La] 
al t ernat i ves Ca+ 1 ] 
count 1 : = count 1 

end ; 
end 5 

until count 1 = 0 ; 



alt vectors Ca+1 ] then 

:= alt vectors Ca] ; 

: == a 1 1 vectors Ca+ 1 ] ; 

:= exchangeSCa] ; 

:= alternat ivesCa] ; 

:= alternat ivesCa+1] ; 
:= exchange4[a] ; 



for al := 1 to nurnof a 1 1 ernat i ves do 
begin 

gotoxy (( ( 5 * al)),10 ); 

write ( copy ( alternat i ves Cal] , 1, 3 ) ) ; 

end ; 

for al s = 1 to nurnofal t ernat i ves do 
beg in 

gotoxy < ( ( 5 * al )) , 11 ) ; 



1 ) ) 
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write ( al t vect or5 Ca 1 1 : 3 : 2 ) ; 

end ; 

t ext background ( green ). ; 

for al := i to nurnof a 1 1 ernat i ves do 

beg i n 

gotoxy ( (5 + ( 5 * a 1 )) ,9) ; 

for bl : = 1 to round ( alt vectors Cal H * 10 ) 
begin 

gotoxy ( ( < 5 * al ) ) , (9 -bl) ) ; 

write ( ’ ’ ) ; 

end ; 
end ; 

text background ( 14 ) ; 

text co lor ( blue ) 5 

gotoxy ( 36, 1 ) ; 

write ( ’ •** larnda max = ’ , 

got oxy ( 36, 3 ) ; 

write ( ’ consistency index = ’ , 

gotoxy (36, 3) ; 

write ( ’ randomized index = ’ , 

gotoxy (36,4) ; 

write ( ’ consistency ratio = ’, cr:4:2 ) ; 

gotoxy (36,6) ; 

write (’•*•* there is some statistical’) ; 
gotoxy ( 36, 7) ; 

write ( ’ inconsistency in your evaluation- ’ ) ; 

G •!' t ci x y (36, 8 ) ; 

write (’ (study highlighted values for ’) ; 

gotoxy (36, 9) ; 

write (’ probable inconsistent evaluation)’) ; 
text co lor ( black ) ; 

alt vect or 3 : = alt vect or 6 ; 
alternatives := alt ernat i ves k ; 
for p3 : = 1 to nurnof a 1 1 ernat i ves do 
begin 

for f 3 := 1 to nurnof al t ernat i ves do 
beg i n 

result C p3, f 3D := 0 ; 
mat r i x2 Cp3, f 3D : = 0 ; 
end 
end ; 
end ; 

gotoxy ( 36,11 ) ; 

write ( ’do you want to modify the data (y/n) ? ’ ) 

Repeat 



larnda: 4:2 ) ; 

ci : 4 : 2 ) i 
r i : 4 : 2 ) ; 
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got oxy ( 75 , 1 1 ) 
cl reel ; 
read ( answer ) ; 

answer := stupcase ( answer ) ; 

until ( ( answer = 7 y 7 ) or ( answer = 7 n 7 ) ) ; 

t ext background ( 14 ) ; 

if answer = 7 y 7 then 
begin 

clrscr 5 

error := false ; 
repeat 

got oxy (2,2) ; 

cl reel ; 

write ( 7 name of the first alternative ? 7 ) ; 

Read ( answer ) ; 

answer := stupcase ( answer ) ; 

for a 1 : = 1 to n urno fait ernat i v es d o 
beg in 

if answer = alternat ivesCal] then 
error := true; 

end ; 

unt i 1 error ; 
a : = 0 ; 

repeat 

a : = a +1 ; 

until answer = al ternat i ves Call ; 

criterial := answer ; 
ert 4 : 

error : = false ; 
repeat 

got oxy ( 2, 3 ) ; 

clreol ; 

write ( 7 name of the second alternative ? 7 > ; 

Read ( answer ) ; 

answer := stupcase ( answer ) ; 

for bl := 1 t >:« numofal ternat i ves do 

begin 

if answer = al ternat i ves Cbl H then 
error : = true; 

end ; 

unt i 1 error ; 
if answer = criterial then 
goto ert 4 ; 

b : = 0 ; 
repeat 

b : = b + 1 ; 

until answer = alternat ivesCb] ; 
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criteria£ : = answer 
window ( 1 , 1 , x 1 , y 1 ) ; 

text background ( blue ) ; 

rnatrix£ := matrixS ; 
text co lor ( red + IS ) ; 

gotoxy ( (£+(b* 8 )> , 3 + a ) ; 

write ( rnatrixSCa, bl :4:£ ) ; 

text co lor ( black ) ; 

window ( 1 , yl +1 , 80, 23) ; 

text background ( 14 ) ; 

clrscr ; 
repeat 

got oxy ( 1 , £ ) ; 

write ( ’is ’ , criterial , ’ better than ’ , 

criteriaS, ’ ? ’ ) ; 

Gotoxy ( 64,2 ) ; 

elreol ; 

read ( answer ) ; 

answer := stupcase ( answer ) ; 

elreol ^ 

until ( ( answer = ’ y’ ) or ( answer = ’ n’ ) ) ; 

if answer = ’ y’ then 

begin 

got oxy ( 1,3 ) ; 

write (’how many times is ’, criterial , ’ better 
criteriaS , ’ ? ’ ) ; 

Gotoxy ( 1,4) ; 

write ( ’ ( see note below ) ’ ) ; 

infol 5 

repeat 

gotoxy ( 64 ,3 ) ; 

elreol ; 

read ( answer ) ^ 

val ( answer , answer 3 , code ) ; 

until ( ( code = 0 ) and ( answers <> 0 ) ) 
rnatr i x£ Ca, bl := answers ; 
mat r i x£ Cb, al := ( 1 J answers ) ; 

matrixSCa, a] := 1 ; 

w i ndow (1, 1, x 1 , y 1 ) ; 

text background ( blue ) ; 

gotoxy ( (£+(b*Q)) , 3 + a ) ; 

text co lor ( white ) ; 

write ( answer3s4s£) ; 

gotoxy ( £ + (a * 8 ) , ( 3 + b ) ) ; 

write ((1 / answers ) : 4 : £ ) ; 

end ; 
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window ( 1 , y 1+1 , 80, 33) ; 

text background ( 14 ) ; 

text co lor ( black ) ; 

. if answer = 1 n’ then 
beg i n 

got oxy ( 1,3 ) ,- 

write ( 1 how many times is ’ , criteria^, 1 better 

’ , criterial , ’ ? 1 ) ; 

Got oxy (1,4) ; 

write ( ’ ( see note below ) ’ ) ; 

infol ; 

repeat 

got oxy ( 64, 3 ) ; 

clreol ; 

read ( answer ) ; 

val ( answer , answer 3 , code ) 5 

until ( ( code = 0 ) and ( answer 3 <> 0 ) ) ; 

matr i x3 Ca, bl : = ( 1 / answers) : 
rnatr i x3 Cb, aU 2 = answers : 
matrixSCa, a] := 1 ; 

window ( l,l,xl,yl) : 
text col or ( white ) ; 

text background ( blue ) 5 

gotoxy ( ( 3 +( b * 8 ) ), 3 + a ) ; 

write ((1/ answerS) s 4 s 3) ; 

gotoxy ( 2 +. (a * 8 ) , < 3 + b ) ) 5 

write ( answerS : 4 : 3 ) ; 

end ; 

window ( 1 , y 1+1 , 80, 33) ; 

text background ( 14 ) ; 

got oxy (1,3 ) ; 

clreol ; 

gotoxy (1,3 ) ; 

clreol ; 

gotoxy (1,4) ; 

clreol ; 
goto ert 
end ; 

window ( 1 , 1 , 80, 35) ; 
gotoxy ( 1 , 34 ) ; 

END ; 



OVERLAY PROCEDURE EVALUATES ( VAR ALTERNATIVES s TITLE1 

VAR ALTVECT0R3 :VECTORF 5 
VAR W s INTEGER ; 

VAR NQRMVECTQR 1 s VECTORG 
var ax s integer ) ; 



than 
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LABEL 

ert, ert4 ; 

CONST 

count = 3 ; 



VAR 



matrix2, result , matrix3 : array C 1 . . £0, 1 . . £03 of real ; 

array5, altvectorS, exchange3, altvectorS : vectorf ; 

lamdal , vectors s vectorf ; 

exchange4 , alternat ivesk : tit lei ; 

numof al t ernat ives, I, count l,xl,yl,al,bl, 

a3, b3, c3, d3, h3, k 3, f 3, p 3, 1 : integer ; 

score, answer3, integerl, row, row 1 , 

larnda, ci, ri, cr : real ; 

st : string C93 ; 

ch : char; 

PROCEDURE INF01 ; 
beg i n 

w i ndow ( 1 , y 1 + 1 , 30, £3) ; 
t ex t background (14) ; 

textcolor ( red ) ; 

got oxy (1,3) ; 

writeln ( ’ "note : be as accurate as possible 

any # between 0 and 10 e. g ,2. 45 or 3- 34 1 ) ; 

Writeln ( ’ a possible scale for inexact is: 1 ) ; 
writeln ( ? 3 = weakly important than ,5 = strongly more 
import an than ’ ) ; 

writeln ( ’ 7 = very strongly more imp. than 9 = 

absolutely more imp. than’ ) ; 

Textcolor ( black ) ; 

end ; 



BEGIN 

numofalt ernat ives : = w ; 

case numofalt ernat ives of 

: begin 

x 1 : = 50 ; y 1 : = 12 ; 

end ; 

: begin 

xl : = 55 ; yl : =13 ; 
end ; 

: begin 

x 1 := 70 ; y 1 : =15 ; 

end ; 



1 1 l — i ^ B , 7 

a, 9, 10, 1 1 

12, 13, 14, 15 
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end 



■> 



nurnof al ternat i ves := w ; 
if nurnof al ternat i ves <> 0 then 

beg in 

w i ndow ( 1 , 1, x 1 , y 1 ) ; 
text background ( b 1 ue) ; 
clrscr; 

w i ndow ( x 1 + 1 , 1 , 80, y 1 ) ; 
text background (white) ; 
clrscr ; 

window (1, yl + 1 , 80, 23) ; 
t ex t background ( 14) ; 

clrscr ; 



window ( 1,24,80,25) ; 

text background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

got oxy (2,1) ; 

write (’step 5:direct input of alternatives weights’) 
altvectoru s= alt vector 3 ; 



window ( x 1+1 , 1 , 80, y 1 ) ; 
text background ( white ) ; 

textcolor ( 0 ) ; 

got oxy ( 1 , 1 ) ; 

write ( ’ priority vector ’ ) ; 

for al := 1 to nurnofalternatives do 
begin 

got oxy (2,3 +al ) ; 

write (copy ( alternat ivesCal] , 1, 18) ) ; 

end 5 

for a := 1 to nurnof al ternat ives do 
begin 

got oxy ( 20 , 3 + a ) ; 

write ( chr ( 179 ) ) ; 

end ; 

for a := 1 to nurnof al ternat i ves do 
beg in 



got oxy ( 27, 3 + a ) ; 

write ( chr ( 179 ) ) ; 

end ; 

window ( 1 , y 1+1 , 80, 23) ; 
text background ( 14 ) ; 

clrscr ; 
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ert 



infol ; 

text co lor ( 0 ) ; 

gotoxy ( £,£) ; 

write ( ’enter the weights of the alternatives : ’ ) ; 

for a ;= 1 to mimofalternat i ves do 

begin 

gotoxy ( £ , £+a ) ; 

write ( al ternat i ves Call ,’:’); 
end ; 

for a : = 1 to mimofalternat ives do 
begin 
repeat 

gotoxy ( length (alternat ivesCa] ) +5 , £+a ) ; 

clreol ; 

read ( answer ) ; 

val ( answer , answers , code ) ; 

Lint i 1 ( (code = 0) and (answerS) -1 ) and (answers < 11); ; 

a 1 b vectors CaJ : ~ answerS : 
end ; 

row 1 := 0 ; 

for p3 := 1 to mimofalternat ives do 
row 1 := row 1 + a 1 1 vect or 5 C p33 ; 
for p3 := 1 to mimofalternat ives do 
beg in 

a 1 1 vect or 5 C p3] := a 1 1 vect or 5 Cp3D / row 1 ; 
end ; 



window (51 , 1 , 80, £1 ) ; 

t ext background ( white ) ; 

for a := 1 to numof a 1 t ernat i ves do 

begin 

gotoxy (££, a+3) ; 

write ( alt vect or 5 Ca] :5:3 ) ; 

end ; 

window (1,13, 80, £3 ); 
text background (14) ; 

clrscr ; 

alt vect or 3 := alt vectors ; 

alternat ives k := alternatives ; 

repeat 

count 1 := 0 ; 



for a := 1 to ( mimofalternat ives-1 ) do 
beg i n 

if alt vect or5Ca] < a 1 t vect or5 Ca+ 1 II then 
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beg i n 

exchanges Cal := altvector 5 Ca] ; 
altvectorSCal : = altvectorSCa+ll ; 
alt vectors Ca+i ] := exchanges Call ; 

exchange 4 Ca] : = alternat ivesCa] 3 
alt ernat i ves Call : = alternat i ves Ca + 1 1 
alternat ivesCa+l] := exchange 4 Cal 3 
count 1 : = count 1 + 1 ; 

end 3 
end ; 

unt i 1 count 1=0; 

for a := 1 to ( numofal ternat i ves ) do 
begin 

gotoxy (( ( 5 * a )), 9 ) ; 

write (copy ( alt ernat i ves Call , 1 , 3 ) ) 3 

end 3 

for a : - 1 to ( numofal ternat i ves ) do 
begin 

gotoxy ( ( ( 5 * a ) ) , 1 © ) 3 

write (al t vectors CaU : 3 : £) ; 

end 3 

t ext background ( green ) 3 

for a : = 1 to ( numofal ternat i ves ) do 
beg i n 

gotoxy ( ( 5 * a ) , Q ) 3 

write ( 9 9 ) 3 

end ; 

for a := 1 to ( numofal ternat i ves ) do 
beg i n 

gotoxy ( (5 + ( 5 * a ) ) , 9 ) ; 

for bl := 1 to round ( alt vectors Cal * 10 ) do 

begin 

gotoxy ( ( C 5 * a ) ) , (9 -bl) ) 5 

wri te ( ’ 9 ) ; 

end ; 
end 5 

gotoxy ( 3 , 11) ; 

text background ( 14 ) ; 

text co lor ( blue ) ; 

write ( 9 do you want to modify the evaluation of the 
alternatives (y/n) ? 9 ) ; 

Repeat 

gotoxy ( 65 , 11) 3 

cl reel 3 

read ( answer ) ; 

answer := stupcase ( answer ) 5 

until ( ( answer = 9 y 9 ) or ( answer = 9 n 9 ) ) ; 
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window ( 1 , 13, 80, 33 ) ; 
text background (14) 5 

if answer = ? y’ then 
beg i n 

clrscr ; 
goto ert ; 
end ; 
end ; 



alternatives := alternat ivesk ; 
END ; 



OVERLAY PROCEDURE DIRECTED ( VAR ALTERNATIVES 

VAR ALTVECTORS : 
VAR W : INTEGER 5 

VAR NGRMVECTCR1 : 
VAR AX : INTEGER ) ; 

LABEL 

ert9, telos9x ; 

CONST 

count = 3 ; 



VAR 



mat r i xG, resu 1 1 , mat r i x3 : array Cl.. 30, 1 . - G 0 D 

array5, altvectorS, exchanges, altvectorS : vect 

1 arnda 1 , vectors : vectorf ; 

exchange4 , alternat ivesk : title! ; 

tempgrade, tempgradel : vectorf ; 

numofalternat i ves, I , count l,xl,yi,ai,bi, limit, 

a3, b3, c3, d3, h3, k.3, f 3, p3, 1 : integer : 

score, answers, integer!, row, 

row! , larnda, ci , r i , cr, count 3 : real 5 

st s string C33 ; 

ch s char; 



BEGIN 

numofal ternat ives := w ; 
case numofal ternat ives of 
1 , 2, 3, 4, 5, G, 7 : begin 

x 1 : = 50 ; y 1 : = 1 2 ; 

end ; 

8 , 9, 10 , 1 1 : beg in 

xl := 55 ; yl : = 1 3 ; 



: TITL 
VECTOR 

VECTORS 



of real 
or f ; 

xG, yG, 
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70 ; y 1 



= 15 






12 , 13 , 14 , 1! 



end ; 



end ; 
beg in 
xl : = 
end : 



nurnof al ternat i ves := w ; 
if nurnofal ternat i ves <> 0 then 
beg i n 

window < 1 , 1 , xl, yl ) 
text background (blue) ; 
cl rs cr ; 



w i ndow ( x 1 ■+• 1 , 1 , 30 , y 1 ) ; 
text background (white) ; 
clrscr 5 

w i nd ow ( 1 , y 1 + 1 , 80 , 23 ) ; 
text background ( 14 ) ; 

clrscr ; 

window ( 1 , 24 , 80 , 25 ) 5 

text background (white ) ; 

clrscr ; 

text co lor ( black ) ; 

gotoxy (2, 1) ; 

write (’step 4 : individual evaluation of al ternat i ves) 

gotoxy ( 2, 2 ) ; 

write ( ’method used : direct input ’ ) ; 



w i nd o w ( 1 , 1 , x 1 , y 1 ) ; 
t ext background ( blue ) ; 

text co lor (white ) ; 

got oxy (2,1) ; 

write ( ’ altern. Evaluation : working area ’ ) 5 

for a := 1 to nurnof cr i ter i a do 
beg i n 

answer := norrnvectorl Call ; 
delete ( answer, 4 , 1 engt h ( answer ) ) ; 

gotoxy ( 2, a+ 3 ) ; 

write ( answer :4 ) ; 

end ; 

for a := 1 to nurnof al ternat i ves do 
beg i n 

answer := a 1 1 ernat i ves Call ; 
delete ( answer , 4 , 1 eng th ( answer) ) ; 

gotoxy ( 3 + ( 5 * (a-1 ) ) , 3 ) ; 

write ( answer ) ; 

end ; 

window ( x 1+1 , 1 , 80 , yl ) ; 
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text background ( white ) 
textcolor ( 0 ) 
got oxy ( 1 , 1 ) ; 



write ( ’ priority vector ’ ) ; 

for al : = 1 to nurnofalternat i ves do 



beg in 

got oxy (2,3 +al ) ; 
write (copy ( alternativesCal ], 1 
end ; 



for a : = 1 to 
beg in 

got oxy ( 20 , 3 
write ( chr 
end ; 

for a : = 1 to 
beg in 

got oxy (27, 3 
write ( chr 



nurnof a 1 1 ernat i ves 

+ a ) ; 

( 179 ) ) ; 

nurnof al t ernat ives 

+ a ) 5 

( 179 ) ) 



end ; 



18) 



do 



do 






w i ndow ( 1 , y 1 + 1 , 80, 23) ; 
text background (14) ; 

clrscr ; 

for a : = 1 to nurno f cr i t er i a do 
beg in 

if norm- special i zed Then 
begin 

if specf i le2. normindex Call <> narnex Then 
goto telos9x ; 

end ; 

got oxy ( 2 , 2 ) ; 

write ( ’ evaluate alternative according to 

criteria’ , norrnvectorl [a] , 1 : ’ ) ; 

for b := 1 to nurnof alt ernat ives do 
beg i n 

window ( 1 , y 1+1 , 80, 23) ; 
text background (14) ; 

textcolor ( black ) ; 

gotoxy ( 5, b+3) ; 

write (b - for alternative alternat i ves CbU 

’ any value between 0 and 10 ? ’ ) ; 

X2 := 76 ; y2 := b + 3 ; counts := 0 ; limit : = 10 
checknurnber ( answer, xl, yl, limit, counts ) ; 

t empgradel CbU := counts ; 
window ( 1 , 1 , x 1 , y 1 ) ; 
text background ( blue ); 
textcolor ( white ) ; 

gotoxy ( 9 + ( 5* ( b- 1 ) ) , 3+a ) ; 

write ( t ernpgrade 1 CbD : 3 : 2 ) ; 

end ; 
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ert 9 : 

temp grade := temp grade 1 ; 

(-* norrnilize vector *) 
row : - 0 2 

for p3 : = 1 to numof al t ernat i ves do 
row := row + t empgradet p3H ; 

for p3 : = 1 to numof alt ernat i ves do 

t empgrade Cp33 := t empgrade Cp3] / row ; 
window ( xl + 1 , 1,88, yl ) ; 

text background ( white ) ; 

text co lor ( black ) ; 

for al := 1 to numof alt ernat i ves do 
begin 

gotoxy ( 22,.al + 3 ) ; 

write ( t empgrade Cal 1 : 3 : 2 ) ; 

end ; 

window ( 1 - y 1 + 1 , 80, 23) 2 
textbackg r o and ( 14) : 

clrscr ; 

for al := 1 to numofalternatives do 
beg in 

gotoxy (( (5* al ) ) , 18 ) ; 

write ( copy ( alternat ivesCal] , 1,3) ) ; 

end ; 

for al : = 1 to numofalternatives do 
begin 

gotoxy ( ( ( 5 * al )) , 11 ) ; 

write ( t empgrade Cal 1 : 3 : £ ) ; 

end 2 

t ext background ( green ) ; 

for al := 1 to numofalternatives do 

begin 

gotoxy ( (5 + ( 5 * al )) ,9 ) ; 

for bl : = 1 to round ( t empgrade Ca 1 1 * 10 ) do 

begin 

gotoxy ( ( ( 5 * al )) , (9 -bl) ) ; 

write ( ’ ’ ) ; 

end ; 
end ; 

t ex t background ( 14 ) ; 

text co lor ( black ) ; 

got oxy ( 36, 11) 2 

write (’do you want to modify the weights (y/n) ? ’ ) 2 

repeat 

gotoxy ( 78, 11); 
clreol ; 

read ( answer ) ; 

answer := stupcase (answer) ; 
until ( ( answer = ’ Y’ ) or ( answer = ’ n’ ) ) ; 
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’ y’ then 



i f answer = 
begin 

clrscr ; 
error := false ; 
repeat 

gotoxy <£, 2 ) ; ‘ 

clreol ; 

write ( ’ name of the alternative ? ’ ) ; 

read ( answer ) ; 

answer := st u pease ( answer ) ; 

for al : = 1 to numofalternat ives do 
beg i n 

if answer = alternat ivesCal] then 
error := true ; 

end ; 

unt i 1 error ; 
a i : ~ 0 ; 
repeat 

a i : = a 1 + 1 

until answer = alternat ivesCal] ; 
clrscr ; 

W i nd ow ( 1 , 1 , x 1 , y 1 ) ; 

text background ( blue ); 

text color ( red ) ; 

gotoxy ( 9 + ( 5* (a 1-1 ) ) , 3+a) ; 

write ( t empgradel Cal] : 3 : 2 ) ; 



w i nd ow < 1 , y 1 *+• 1 , 80, £3 ) ; 
text background (14) ; 

t ext col or ( black. ) ; 

gotoxy < £, 2 ) ; 

write ( ’for alternative alternat ivesCal] , 

’ any value between 0 and 10 ? ’ ) ; 

X2 : = 76 ; y2 := b + 3 : count 3 := 0 ; limit : = 10 

checknumber ( answer, x 1 , yl , 1 irnit , counts ) 5 

ternpgradel Call] := counts ; 

wind o w (1, 1 , x 1 , y 1 > ; 

t ext background ( blue ) ; 

text co lor ( white ) ; 

gotoxy < 9 + < 5* ( a 1 — 1 ) ) , 3+a ) ; 

write ( tempgradel Cal] :3:£ ) ; 

goto ert9 ; 
end ; 



for al := 1 to numofalternat ives do 
al t mat r i x Ca, al II := t ernpgrade Ca 1 U ; 
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window < 1 , yl+1 , 30, 23) ; 
text background ( 14 ) ; 
textcolor ( black ) ; 

clrscr ; 
telosSx : 
end ; 
end ; 

END ; 

INCLUDE FILE 4-2 

OVERLAY PROCEDURE ELECTRE ; 

TYPE 

sea 1 e 
ind 
ana y 2 

VAR 

f 1 , f2, a, b, c, 1 irnit : integer ; 

sum, result, pfactor, 

qf act or, max, min, counts : real ; 

d iscordance, concordance, 

rnatrixdance, matrixcon : matrix20 ; 

outranking : arrayS; 

criteria : vectorg ; 

cr it value : vectorn ; 

alter s titlel ; 

grading : arayl ; 

grad ingwei ght s aray2 ; 

index, c ind ex, d index : ind ; 

st 1 : name ; 



= array Cl. . 4] Of name : 

“ arrayC1..91 Of integer $ 

= array C 1 . - 5, 1 - - 91 Of real ; 



PROCEDURE WRITEWORKSHEET ; 

BEGIN 

window ( 1,1,41,12) ; 

text background ( blue ); 
text co 1 or ( wh i t e ) ; 

got oxy ( 2,1) ; 

write ( ’ altern. Evaluation : working area ’ ) 

for a := 1 to nurnof criteria do 
begin 

answer := criteriaCa] ; 

delete ( answer, 4, length (answer ) ) ; 

got oxy ( 5 + ( 4*(a“*l)),%i) 5 
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write ( answer: 4 ) 
end ; 



for a 
beg i n 
got ox y 
answer 
delete 
write 
end ; 

END ; 



1 to numofal ternat i ves do 

( 2 , a+3) ; 

:= alterCa] ; 

( answer, 4, length ( answer) ) 
( answer:3 ) ; 



PROCEDURE GRADES ; 

VAR 

base, step : real ; 

BEGIN 

for a := 1 to nurnofcr it er ia do 
beg i n 

base : = critvalueCa] * 100 ; 

step := base / 4 ; 

for b := 1 to 5 do 

grad ingwei ght Cb, a] : = base - ( step * ( 

end ; 

END ; 



PROCEDURE WRITEGRADING ; 

BEGIN 

window (41,1,80,12) ; 

text background ( white ); 

text co lor ( black ) ; 

got oxy ( 2 , 1 ) ; 

write ( ’grading scale ’ ) ; 

for a := 1 to nurnofcr iter i a do 
beg in 

gotoxy ( 7 + ( 4*<a— i)),3) ; 

answer := criteriaCa] ; 

delete ( answer, 4, length ( answer) ) ; 

write ( answer:4 ) ; 

end ; 



gotoxy (1,4) ; 

text co lor ( red ) ; 

write ( ’ wei g. : ’ ) 5 

For a := 1 to nurnofcr i ter ia do 
begin 



b - 1 ) ) ; 
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gotoxy < 4 + ( 4*a) , 4) ; 

write ( round (critval ue Cal * 100 ) ) ; 

end ; 

t ext col or ( black ) ; 

gotoxy ( 1,6 ) ; 

write ( 1 exce 1 ) ; 

gotoxy (1,7 ) ; 

write ( 1 good’ ) ; 
gotoxy ( 1 , 8 ) ; 
write ( 1 aver’ ) ; 
gotoxy ( 1,9); 

wr i t e ( 1 f ai r 1 ) ; 

gotoxy (1,10) ; 

write ( 1 weak 1 ) ; 

grades 5 

for a 2 = 1 to numofcr iteria do 
beg in 

for b 2 = 1 to 5 do 
beg in 

gotoxy ( 4 + ( 4*a), b + 5 ) ; 

write ( round (grad ingweight Cb, a] ) ) ; 

end ; 

END ; 



PROCEDURE GRADEALTERNATI VES ; 
LABEL 
j mp3 ; 

BEGIN 



window ( 1,13,80,24) ; 

text background ( 14 ) ; 

text co lor ( black ) ; 

if norm. specialized Then 

grading 2 = specfi le 2 . grading ; 

For a 2 = 1 to nurnofal ternat ives do 
begin 

gotoxy ( 2 , 2 ) ; 

write ( 1 ** evaluate alternative 1 , alter Ca] , 1 : 1 ); 

for b : = 1 to numofcr iter i a do 
beg in 

if norm- spec i a 1 i zed Then 

beg in 

if specf i le2- norm index CbU = narnex Then 
goto .jrnp3 ; 

end ; 

write (b , 1 - for criterion 1 , criteria CbD , 1 any value 
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bet ween 0 and 1 , round ( grad i ng we i gh t C 1 , b] ) , 1 ? ’ ) 
XI : = 76 ; 
y 1 : = b + 3 ; 

count 3 := 0 ; 

limit := round ( grad i ng we i ght [ 1 , b] ) ; 

checknurnber ( answer, x 1 , yl , 1 irnit , counts ) ; 

gradingCa, b] : = counts ; 

window ( 1, 1,40, 12) ; 

text background ( blue ); 

gotoxy ( 2 + ( 4*b),a+3) ; 

write (round ( grad ing Ca, b] ) ) ; 

window ( 1,13,80,23) ; 

text background ( 14 ) ; 

jrnpS : 

end ; 
clrscr ; 
end ; 

END ; 

PROCEDURE FACTORS ; 

BEGIN 

window ( 1,13,80,23) ; 

text background ( 14 ) ; 

clrscr ; 

text co lor ( black ) ; 

gotoxy ( 2 , 4) ; 

write ( 1 ** concordance threshold (p) C0 - 100] s 

gotoxy ( 2 , 5) ; 

write ( ’ ( nb • becomes severe as it approaches 100 )? ’ ) 

XI := 70 ; yl := 5 ; count 3 : = 0 ; limit := 100 ; 

checknurnber ( answer, xl, yl, limit, count 3 ) ; 

pf act or : = counts 5 
gotoxy ( 2, 7) ; 

write ( ’ discordance threshold (q) C 0 - 100 ] 2 ’ ) 

gotoxy ( 2 , 8 ) ; 

write (’ (nb .. becomes severe as it approaches 100 )? * ) 

XI := 70 ; yl := 8 ; 

counts := 0 ; limit : = 100 ; 

checknurnber ( answer, x 1 , yl , 1 irnit , counts ) 5 

q fact or : = counts ; 

if ( (specf i le2. pfactor <> 0) And 

(specf i le 2 . Pfactor (pfactor) ) then 
pfactor s ■= specf i le£. pfactor ; 

If ( (specf i le2. qfactor <> 0 ) And 

( specf ile 2 . Qfactor > q fact or ) ) then 

qfactor : = specf i 1 e 2 . q fact or ; 

Window (41,1,80,12) ", 

t ext background ( white ); 
textcolor ( black ) ; 

gotoxy ( 2, 11 ) ; 
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write (’p - ’ , pf act or s 3 : 2, ’ % q = ’ , q f act or : 3 : 2, ’ “/• ’ ) 
if norm. special i zed Then 
beg in 

specf i le£. pfactor := pfactor ; 
specf i leS. q fact or := q fact or ; 
specfilelE:. grading := grading 5 
ft : = 0 ; 
repeat 

a : =s a + 1 ; 

until ( narnex = norm. UsersnarnesCa] ) ; 

specf i lee!. Final index 1 Cal : = true ; 
writespeef i le ; 
end 5 
END ; 



PROCEDURE COMPUTE 1 ; 

BEGIN 

for c : = 1 to n urn o f cr i t ar i a do 

beg i n 

if ( grading Ca, cl > = grad ing Cb, cl ) then 
sum := sum + cr itvalueCcU ; 

end ; 

if (a <> b ) then 

concordance Ca, b3 := sum * 100 

e 1 se 

concordance Ca, b] : = 1 ; 

END ; 



PROCEDURE COMPUTES ; 

BEGIN 

for c : = 1 to nurnof criteria do 
begin 

if ( grad ing Cb, cD > grad i ng Ca, cU ) then 

sum := grad ing Cb, c3 - grading Ca, cl ; 
if ( result <= sum ) then 
result := sum ; 

end ; 

if (a <> b) then 

discordanceCa, b] : - result / critvalueCID 
else 

discordanceCa, b] : = 1 ; 

END ; 



PROCEDURE COMPUTECONC ; 

BEGIN 

for a : = 1 to nurnof alt ernat ives do 
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begin 

for b := 1 to nurnof al t ernat i ves d«: 
begin 

sum := 0 ; 
comp ut el ; 
end ; 
end ; 

END ; 



PROCEDURE FINTINDEX 1 ; 

BEGIN 

for a : = 1 to nurnof a 1 1 ernat i ves do 
begin 

c : = 0 ; 

for b : = 1 to nurnof a 1 1 ernat i ves d>: 
begin 

if concordance Ca, bU >= pfac tor 
c : = c ■+* 1 ; 
cindexL'a] : = c ; 
end ; 
end ; 
fl := 0 ; 



for a := 1 to nurnof a 1 1 ernat i ves do 
fl := fl + cindexCaH ; 

END ; 



PROCEDURE COMPUTED ISCONC ; 

BEGIN 

for a : = 1 to nurnofal ternat i ves do 
begin 

for b := 1 to nurnofal ternat i ves d«: 
beg i n 

sum s= 0 ; 

result := 0 ; 
computes ; 
end ; 
end ; 

END ; 



PROCEDURE FINTINDEX2 ; 

BEGIN 

for a := 1 to nurnofal ternat i ves do 
begin 

c s = 0 ; 

for b := 1 to nurnof alt ernat i ves d«: 



then 
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beg i n 

if d i scordance Ca, bl <= q fact or then 
c : = c + 1 5 
dindexCaD := c - 1 ; 

end ; 
end ; 
f 2 := 0 ; 

for a : = 1 to nurnof a 1 1 ernat i ves do 
f2 := f 2 + dindexCa] ; 

END ; 



PROCEDURE WRITEALT (var st 1 : name ; van rnatrixcon :rnatrix 20 

var index : ind ) ; 

BEGIN 

for a := 1 to nurnof a 1 1 ernat i ves do 
beg in 

answer := alter [a] ; 

delete ( answer, 4 , length ( answer) ) 5 

got oxy ( 2, a + 3 ) ", 

write ( answer :4 ) ; 

end ; 

for a := 1 to nurnof a 1 1 ernat i ves do 
begin 

answer := alterCal ; 

delete ( answer, 4 , length ( answer) ) ; 

got oxy ( 5 + ( a * 5 ) , 3 ) ; 

write ( answer :3 ) ; 

end ; 

text co lor ( red ) ; 

gotoxy ( 5 + ( ( a+ 1 ) * 5 ) , 3 ) ; 

write ( st 1 ) 5 

text co lor ( black ) ; 

for a : = 1 to nurnof a 1 1 ernat i ves do 
beg in 

for b := 1 to nurnof a 1 1 ernat i ves do 
begin 

gotoxy ( 5 +(b* 5 ),a+ 3 ) 5 

if ( a = b ) then 
write ( ’ — ’ ) 

e 1 se 

write ( round (rnatri xconCa, bU ) ) ; 

end ; 
end ; 

text col or ( red ) ; 

for c := 1 to nurnof al t ernat i ves do 
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beg in 

got oxy (5 + ( ( b-*- 1 ) *5) , c + 3 ) ; 

write ( index Cel ) ; 

end ^ 

text co lor ( black ) ; 

END ; 



PROCEDUTE CONFINT ; 

BEGIN 

window ( 1,13, 80, £3) ; 

text background ( 14 ) ; 

t e x t co 1 or ( b 1 ue ) ; 

clrscr 5 
got oxy ( 2 , £) ; 

write (’ concordance matrix ’ ) ; 

cornputeconc : 

fint index 1 5 

text col or ( black ) ; 

st 1 : = 9 #c i 9 ; 

matrixcon := concordance ; 
index := cindex ; 

writealt ( st 1 , matrixcon, index ) 5 

text co 1 or ( blue ) ; 



got oxy 


( 




£> ; 




write 


(’ 


** 


a concordance index indicates to ■ ) 5 


got oxy 


( 


^8 , 


3) ; 




wr i t e 


( 9 




what extent 


an option is better than ’) ; 


got oxy 


( 


0 8 , 


4) ; 




write 


( 9 




another in 


terms of criteria weights 9 ) 5 


got oxy 


( 


38, 


5) ; 




write 


<’ 


■** 


the index varies between C 0 - 100 3 9 ) ; 


got oxy 


( 


^8 , 


6 ) ; 




write 


( 9 




the higher 


the better - 9 ) ; 


Got oxy 


( 


08 , 


7) ; 




write 


(’ 


9 


, f 1 , 9 indexes are > = 9 , round ( pf act or ) ) 


got oxy 


( 


08 , 


3) ; 




write 


(’ 


-**■ 


column #ci 


indicates the # of indexes 9 ) 


got oxy 


( 


38, 


g ) ; 




wr i t e 


< 9 




sat i sf y i ng 


p for each option 9 ) ; 


got oxy 


( 


2 , 10 ) ; 




wr i t e 


( 


’hit 


any key to 


continue 9 ) ; 



read ( kbd, ch ) ; 

END ; 
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PROCEDURE DISFINT ; 

BEGIN 

window ( 1,13,00,23) ; 

text background ( 14 ) ; 

clrscr ; 

textcol or ( blue ) ; 

got ox y (2,2) ; 

write (’discordance matrix ’ ) ; 

computed i scone ; 

fintindexE’ ; 
textcolor ( black ) ; 



st 1 : = ’ #d i ’ ; 

rnatrixcon := discordance ; 
index := dindex ; 

writealt ( st 1 , rnatrixcon, index ) ; 

text co 1 or ( blue ) ; 

gotoxy ( 40, 2) 5 

write (’•*•* a discordance index indicates to ’ ) ; 

gotoxy ( 40, 3) ; 

write (’ what extent an option contains a bad ’) ; 

gotoxy ( 40,4) ; 

write (’ element that makes it un-sat isfactory ’); 

gotoxy ( 40, 5) ; . 

write (’-**■ the index varies between C 0 - 100 1 ’ ) ? 

gotoxy ( 40,6 ) ; 

write (’ the lower the better - ’ ) ; 

Gotoxy ( 40, 7) ; 

write (’ ’ , f 2 , ’ indexes are < = ’ , q fact or : 3 2 2 ) ; 

gotoxy ( 40, 8 ) ; 

write (’-**■ column #ci indicates the # of indexes ’ ) ; 

gotoxy ( 40, 9 ) ; 

write (’ satisfying q for each option ’ ) ; 

gotoxy ( 2 , 10 ) ; 

write ( ’hit any key to continue ’ ) ; 

read ( kbd, ch ) ; 

END ; 



PROCEDURE COMPUTEOUT RANKING ; 
BEGIN 



for a := 1 
begin 

for b : = 
begin 
if ( ( 

( 



e 1 se 



to nurnofal ternat i ves do 

1 to nurnofal ternat i ves do 

concordance Ca, bl >= pfactor ) 
d iscordance Ca, bD <= q fact or ) 
outranking [a, b] := ’ 



and 



then 
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outranking C a, b!3 ; 

end ; 
end ; 

for a := 1 to nurnof al ternat i ves do 
outranking [a, a] s = ’ ; 

END ; 

PROCEDURE OUTFINT ; 

VAR 

ans : name ; 

BEGIN 

window ( 1,13,80, £3) ; 

text background ( 14 ) ; 

text co lor ( blue ) ; 

clrscr ; 
gotoxy ( £, £) ; 

write (’outranking matrix ’ ) ; 

c o r n p u t e o u t r a n k i n g $ 
text co lor ( black. ) 5 

for a : = 1 to nurnof al ternat i ves do 
beg in 

ans : = alterCa] ; 

delete ( ans, 4, length ( ans) ) ; 

g o t o x y ( £ , a + 3 ) ; 

write ( ans: 4 ) ; 

end ; 

for a : ~ 1 to numofal ternat i ves do 
beg in 

ans : = alter [a] ; 

delete ( ans, 4, length ( ans) ) ; 

gotoxy (5+(a*5),3); 
write ( ans: 3 ) ; 

end ; 

for a : = 1 to numofal ternat i ves do 
begin 

for b : = 1 to nurnof a 1 ternat i ves do 
beg i n 

gotoxy ( 5 h- ( b * 5) , a + 3 ) ; 

write (outranking Ca, bl ) ; 

end ; 
end ; 



t e x t co 1 or ( blue ) ; 

gotoxy ( 38, £) ; 

write (’** an outranking relation * is the ’ ) 5 

gotoxy ( 38, 3) ; 

write <’ one that satisfies both concordance M ; 

gotoxy ( 38, 4) ; 

write (’ and discordance requirements. ’); 

Gotoxy ( 38, 5) ; 
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write (’-*•* an - indicates that there is ’ ); 

got ox y ( 38, 6 ) ; 

write (’ no outranking relations- ’ ) ; 

Got ox y ( 2, 10 ) 

write ( ’hit any key to continue ’ ) ; 

read ( kbd,ch ) ; 

END ; 

BEGIN (* main ■*) 

window ( 1,1,40,12) ; 

text background ( blue ); 
clrscr ; 

window (41,1,80,12) ; 

text background ( white ); 
drscr ; 

window ( 1, 13, 30, 23) ; 

text background ( 14 ) ; 

clrscr ; 

window ( 1,24,00,25) ; 

text background ( white ) ; 
clrscr ; 

text col or ( black ) ; 

got oxy ( 2 , 1 ) ; 

write ( ’step 4 : evaluation of alternatives ’ ) 

got oxy ( 2 , 2 ) ; 

write ( ’method used : electre ’ ) ; 

if ( not norm. Specialized ) then 
begin 

alter := problem. alternatives ; 

nurnofalternat ives := problem- nurnof al t ernat ives 
cr i t er i a : = so 1 ut i on- normvect or 1 ; 

cr i t va 1 ue 2 = so 1 ut i on- normvect or 2 5 
end 
e 1 se 
beg i n 

alter := problem, alternatives 5 

nurnofalternat ives := problem- nurnofalternat ives 
criteria := Specf i le2. normvect or 1 ; 

cr it value 2 = Specf i le2. normvect or 2 ; 
end ; 

wr i tewoksheet ; 
writegrading ; 
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gradeal ternat ives ; 
factors -, 

if norm- sped al i zed Then 
beg in 

b : = 0 ; 

for a : = 1 to 3 do 
begin 

if specf i le2. final indexl Call Then 
b : = b + 1 ; 

end ; 

if ( b = norm. Nurnof users ) then 

specf i le2. Electre. Status := true 

e 1 se 

specf ile2. Electre. Status := false ; 
end ; 



if ( ( not norm- Special i zed 

( norm- Special lzed and 
then begin 
repeat 

window ( 1,13, QiZi, £3) ; 



text background ( 14 ) ; 

clrscr ; 



textcolor ( black ) ; 



got oxy ( 2,2) ; 

write ( ’menu ’ ) ; 



) or 

specf i 1 e2. Electre 



got oxy (2, 4) ; 

write ( ’1- Concordance matrix ’ ) ; 

got oxy (2, 5) ; 

write ( ’2. Discordance matrix ’ ) ; 

got oxy ( 2,6) ; 

write ( ’3. Outranking matrix ’ ) ; 

got oxy ( 2,7) ; 

write ( ’4. Modify thresholds ’ ) ; 

got oxy ( 2,8) ; 

write ( ’5- Exit electre ’ ) ; 

got oxy ( 2, 10) ; 

write ( ’selection (1-5) ? ’ ) ; 

Repeat 

got oxy ( 30, 10) ; 
clreol ; 

read ( answer ) ; 



S t at us 



until ( (answer =’ 1’ ) or (answer = ’ 2’ ) or (answer 
’3’ ) or (answer ~ ’ 4’ ) or (answer = ’ 5’ ) ) ; 

if answer = ’1’ then 
confint ; 



if answer = ’2’ then 
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isfint 5 

if answer = 1 S’ then 
beg i n 

corn put econc ; 
computed i scone ; 
outfint ; 
end -, 

if answer = ’4’ then 
factors ; 

until ( answer = ’ 5’ ) ; 

if ( not norm. Special i zed ) then 
begin 

solution. Electre. Outranking := outranking ; 
wr i t eso 1 ut i on file 5 
end 

else 
beg i n 

specfilaS. Electre. Outranking ;= outranking ; 
wr it espeef i le ; 
end ; 
end ; 

END ; 



INCLUDE FILE STEP6 



OVERLAY PROCEDURE GDSS : 

LABEL 



telosl ; 

TYPE 

names = name ; 

altnamesl = array Cl.. 20 II Of names 5 
alt vector5 = array Cl .. 6 , 1 .. SOU Of real ; 
ordinalE = array Cl.. £03 Of integer 
ordinals = array Cl.. S3 Of ordinals ; 



VAR 

a, b, c, n umo fait ernat i ves, result x, nurnofusers , xxx , 
count ah p, count e 1 ect re, suma , count IS, f 1 : integer 
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names 



:«f vectorf 
t i 1 1 e 1 : 



vect or f 



f i lnamel, xx, pruserl : 
altvectorS : array Cl.. SI «: 
alt names : array Cl. -61 of 
usersriames : narnec 5 
answers, userx : names ; 
br£, altvectorS, ar£, ar3 
altnamesS : tit lei ; 

br 1 , ord i nal 1 , ar 1 , ar4, i nd i vidua 1 ord i na 1 1 , 

ind i vidua 1 vector 1 : ordinals ; 

ord i na 1 , individual ord i na 1 , i nd ividual vect or 

result xl, result xS : real ; 

weight : vectorsl ; 

ch : char ; 

indexrn : array Cl.. 93 Of char ; 



PROCEDURE COMPUTE 1 ; 

BEGIN 

for b := 1 to nurnofaltsrnat i ves do 



beg i n 

suriia := 0; 



for c := 1 to nurnof users do 
begin 

ord i nail : = ordinal Ec] ; 
suma suma + ordinallCbU ; 
end ; 

arlCbl := suma ; 
end ; 

for a : = 1 to nurnof a 1 1 ernat i ves 
beg in 



gotoxy ( S, a +5 ) ; 

wr i t e ( ar 1 Cal ) ; 
end ; 



END ; 



do 



PROCEDURE COMPUTES ; 

BEGIN 

for b := 1 to nurnof a 1 1 ernat i ves do 
beg in 

result xl := 0; 

for c 5 = 1 to nurnof users do 

begin 

altvectorS : = a 1 t vect orS Cel ; 
result xl := result xl + altvectorSCbl ; 
end ; 

arSCbl : = ( result xl / nurnof users ) 5 

end ; 

for a := 1 to nurnof alt ernat i ves do 



ord 1 nal 



15S 



1 



begin 

got oxy <l£,a+5 ) ; 

write ( ar£Ca3:3:£ ) 
end ; 

END ; 

PROCEDURE COMPUTES ; 

BEGIN 

for b := 1 to nurnofal ternat i ves do 
beg i n 

resu 1 1 x 1 s = 1 ; 

for c := 1 to numof users do 

begin 

alt vectors := alt vectors CcD ; 
resultxl := resultxl * alt vectors EbU 
end ; 

result xc := In ( resultxl ) ; 

ar3CbD : = exp ( ( 1 / numof users ) * 

end 5 

for a := 1 to numof al ternat i ves do 
begin 

got oxy ( 18, a+5 ) ; 

write ( ar3Ca]:3:2 ); 
end ; 

END ; 

PROCEDURE COMPUTED ; 

BEGIN 

for b := 1 to nurnofal ternat i ves do 
beg in 

surna := 0; 

for c := 1 to nurnof users do 
begin 

ordinal 1 := ordinal Cc] ; 

surna := surna +( nurnof al ternat i ves - 
end ; 

ar4Cb3 := surna ; 
end ; 

for a := 1 to nurnofal ternat i ves do 

beg in 

got oxy ( £4, a+5 ) ; 

wr i t e ( ar4 Call ) ; 
end ; 

END ; 

PROCEDURE COMPUTED RD I NPL ; 

BEGIN 

for b s= 1 to nurnofal ternat ives do 
begin 

surna := 1 ; 

for c := 1 to ( nurnof al ternat ives ) do 



"esultxE ) 



ordinal 1 CbU 
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beg i n 

if alt veetorB Cb] < altvectorQCc] then 
sum a := surna •+• 1 ; 

end ; 

ord i na 1 1 C bl : = surna ; 
end ; 

END ; 

PROCEDURE COMPUTE I ND I V I DUAL VECTOR ; 

BEGIN 

for al : = 1 to nurnof a 1 1 ernat i ves do 
beg in 

surna := 0 ; 

for bl := 1 to nurnof alt ernat i ves do 
beg in 

i f ( sol ut ion- Elect re. Outranking Cal , bl ] = ’ ) 
surna ; = surna •+• l • 
end ; 

ind ividual vector 1 CalJ := surna ; 
end ; 

END ; 

PROCEDURE COMPUTEX 1 ; 

BEGIN 

for a := 1 to nurnof alt ernat i ves do 
beg in 

surna : = 0 ; 

for b := 1 to nurnof users do 
beg i n 

indiv idua 1 vect or 1 : = i nd i v i dua 1 vect or C bl ; 

surna := surna + ind ividual vector 1 Cal ; 
end ; 

gotoxy ( 9, 5+a ) ; 

write ( surna ) ; 

end ; 

END ; 

PROCEDURE COMPUTE XE ; 

BEGIN 

for a := 1 to nurnof a 1 1 ernat i ves do 
begin 

surna := 0 ; 

for b := 1 to nurnof users do 
begin 

ind i vidua lord inal 1 := ind i vidua lord i na 1 CbU ; 

surna := surna + ind ividualord inal 1 Call ; 
end ; 

gotoxy (15, 5+a ) ; 

write ( surna ) ; 

end ; 

END ; 



then 
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1 



PROCEDURE WIN1 
BEGIN 

i f norm- Broadcast ing then 
begin 

for a : = 1 to ri urn of user s do 
begin 

got ox y ( 6 * a , 4 ) ; 

write ( usersnarnes Can : 4 ) ; 

end ; 

gotoxy ( 2, 5) ; 

text co lor (red ) ; 

write ( ’ weig. ) ; 

For a : = 1 to nurnof users do 
begin 

gotoxy ( ( 6*a ) +2, 5 ) ; 

write ( we i ght Can : 3 : 2 ) ; 

end ; 

t e x t co 1 or ( b 1 Lie ) \ 

for a : = 1 to nurnof alt ernat ives do 
begin 

gotoxy ( 3, a+5 ) ; 

write ( copy ( a 1 1 narnesS Can , 1 , 3 ) ); 

end ; 

for a := 1 to nurnof users do 
begin 

altvectorfl := al t vectors Can ; 

for b s= 1 to nurnof alt ernat ives do 

begin 

gotoxy ( <6 * a)+£ , b + 5 ) ; 

write ( al t vectorB Cbn : 3 : 2 .) ; 

end ; 
end ; 
end 
else 
begin 

for a := 1 to nurnof users do 
begin 

if ( pruserl = usersnarnes Can ) then 
begin 

gotoxy (6 , 4 ) ; 

write ( usersnarnes Can s 4 ) ; 

xxx : = a ; 
end ; 
end ; 

for a := 1 to nurnof al t ernat ives do 
begin 

gotoxy ( 2, a+5 ) ; 

write (copy ( a 1 1 narnesS Can , 1 , 3 ) ); 

end ; 

alt vector 8 := altvectorSCxxxl ; 
for b := 1 to nurnof a 1 1 ernat i ves do 
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beg i n 

gotoxy ( B , b + 5 ) ; 

write ( altvectorQCb] :3:£ ) ; 

end ; 
end \ 

END ; 

PROCEDURE WINE ; 

BEGIN 

window (£6, 1, 50, 16 ) ; 

t ext background ( 14 ) ; 

clrscr ; 

text co lor ( black ) ; 

gotoxy ( £,*£ ) ; 

write ( 1 ordinal ranking ’ ) ; 

i f norm. Broadcast ing then 
beg in 

for a s = 1 t o n u rn o f u s e r s d o 
beg i n 

gotoxy (( 6*a)-£ ,4) ; 

write ( usersnames Call : 4 ) ; 

end ; 
end 
e 1 se 
beg in 

gotoxy ( 6,4) ; 

write ( usersnarnesCKXx] ) ; 

end ; 

for a : = 1 to nurnof users. do 
beg in 

alt vectorQ : = a 1 1 vect or 6 Call ; . 
for b : = 1 to numofal ternat i ves do 
beg i n 

surna : = 1 ; 

for c : = 1 to ( numofal ternat i ves ) 
beg i n 

if alt vect orS CbU < alt vectorQ Cell 
surna := surna + 1 ; 

end ; 

ordinal 1C b] : - surna ; 
end ; 

ordinal Ca] : = ordinal 1 ; 

end ; 

i f norm. Broadcast ing then 
beg i n 

for a := 1 to nurnof users do 
beg in 

ordinal 1 : = ordinal Call ; 

for b := 1 to nurnof a 1 ternat i ves do 

begin 



do 

then 
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got ox y ( 6 * a , b + 5 ) ; 

write ( ordinal 1 Cb3 ) ; 

end ; 
end ; 

end 

else 
beg in 

ordinall := ordinal Cxxxl ; 

for b := 1 to numof al ternat i ves do 

beg i n 

gotoxy (6 , b + 5 ) ; 

write ( ordinallCbU ) ; 

end ; 
end ; 

END ; 

PROCEDURE WIN3 ; 

BEGIN 

window (51,1,30, IS ) : 

t ext background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

gotoxy (1,2) ; 

write ( ’ group results ’ ) ; 

for a s = 1 to 4 do 

beg i n 

gotoxy ( ( 6-*a) ,4) ; 

write ( 1 r ’ , a ) ; 

end ; 

for a : = 1 to nurnofal ternat i ves do 
beg in 

gotoxy ( 2, a+5 ) ; 

write ( copy ( a 1 1 namesG Call , 1,3) ) ; 

end ; 

if norm- Agregat ion then 
beg i n 

computer 1 ; 

computers ; 
com put er3 ; 
computer^ ; 
end 
else 
beg i n 

fl :« 0 ; 
repeat 

fl s= fl + 1 ; 

case norm, Agregat ionnarne Cfl 3 of 
’ 2 1 : computers ; 

’ 1’ : computer 1 ; 

1 4’ : computer4 ; 
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’ 3’ : cornpat er 3 ; 

end ; 

ant i 1 ( f 1 > = 4 ) ; 

end ; 

END ; 



PROCEDURE WIN4 ; 

BEGIN 

if norm. Broadcasting then 
beg in 

for a : = 1 to mimof users do 
beg in 

gotoxy ( S * a , 4 ) ; 

write ( Lisersnames Ca] : 4 ) ; 

end ; 

for a := 1 to nurnofal t ernat i ves do 
beg in 

gotoxy ( 2, a + 5 ) ; 

delete( a 1 1 narnesE Call , 4 , length (altnarnesfiCa] ) ) 

write ( altnamesSCa] ); 
end ; 

for a := 1 to nurnof users do 
begin 

i nd i v i di.ia 1 vect or 1 : = ind i v i dLia 1 vect or Call ; 

for b := 1 to nurnofal ternat i ves do 

begin 

gotoxy ( (6 * a)+£ , b + 5 ) • 

write ( ind i vidua 1 vector 1 Cb] ) ; 

end ; 
end ; 
end 
else 
beg in 

for a := 1 to numo fusers do 
beg in 

if ( pruserl — Lisersnames Call ) then 
beg in 

gotoxy (6 , 4 ) ; 

write ( Lisersnames Call : 4 ) ; 

xxx : = a ; 
end ; 
end ; 

for a := 1 to nurnofal ternat i ves do 
begin 

gotoxy ( 2, a+5 ) ; 

write ( altnamesSCaU ); 
end ; 

i nd i v idua 1 vect or 1 : = ind i vi dLia 1 vect or [xxx] ; 
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for b := 1 to nurnof a 1 1 ernat i ves do 
begin 

gotoxy (6 , b + 5 ) ; 

write ( ind i vidua 1 vector 1 CbJ ) ; 
end ; 
end ; 

END ; 



PROCEDURE WINS ; 

BEGIN 

window (£6,1,50,16 ) ; 

t ex t background ( 14 ) ; 

clrscr ; 



text color ( black ) ; 

gotoxy ( 2 , 2 ) ; 

write ( ? ordinal rank ink 

if norm- Broadcasting then 

begin 

for a := 1 to nurnof users 
begin 

gotoxy ( 6 * a ,4) ; 

delete ( user snarnes Cal 
write < user snarnes [ a ] 
end ; 
end 
else 
begin 

gotoxy ( 6 , 4) ; 

del et e ( usersnarnes C x x x I , 
write ( usersnarnes Cx xx H 
end ; 

for a : = 1 to nurnof users 
beg in 



f ) ? 

do 

, 4 , length ( usersnarnes Ca3 

) ; 

4 , length ( usersnarnes C x x x 1 ) 

> ; 



do 



i nd i vi d ua 1 vector 1 := indiv i dual vect or Cal 5 

for b : = 1 to nurnof a 1 1 ernat i ves do 



beg in 

surna : — 1 ; 

for c := 1 to < nurnof alt ernat i ves ) do 
beg in 

if ind ividual vector 1 CbU < ind i vi dual vect or 1 Cel 
surna : = surna + 1 ; 

end ; 

ind ividual ordinal 1 CbJ := surna ; 
end ; 

i nd i vidua lord i na 1 Cal : = ind i vi dual ord ina 1 1 ; 

end ; 

if norm. Broadcasting then 



> > ? 



> ; 



then 
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beg in 

for a := 1 to nurnof users do 
beg i n 

individual ordinal 1 s = ind i vidua lord i nal Cal 
for b : = 1 to nurnof a 1 ternat i ves do 
beg i n 

gotoxy ( & * a , b + 5 ) ; 

write ( individual ordinal 1 Cbl ) ; 

end ; 
end ; 
end 
e 1 se 
beg i n 

i rid i v i d ua 1 or d i na 11 : = individ ua 1 or d i na 1 Cxxx] 

for b : = 1 to nurnof al ternat i ves do 
beg i n 

gotoxy (6 , b + 5 ) ; 

write ( ind i vidua lord i nal 1 Cbl ) 5 

and ; 
end 5 
END ; 



PROCEDURE WIN6 ; 
BEGIN 



window ( 51 , 1 , 80 , IS ) ; 

t ex t background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 



gotoxy ( 1,2 ) ; 

. write ( ’ group results ’ ) ; 



gotoxy ( 9 , 4 ) 
wr i t e ( ’ r 4 ’ ) 

gotoxy ( 15 , 4 ) 

wr i t e ( ’ r 1 ’ ) 

for a := 1 to 
beg in 



1 

5 

nurnof a 1 ternat ives 



gotoxy ( S, a +5 ) ; 

write ( copy (a 1 tnamesS Cal , 1 , 3 
end ; 

i f norm. Agregat ion then 
begin 

com put ex 1 ; 

corn p ut ex 2 ; 
end 
else 
begin 

for fl := 1 to 4 do 



do 



) 



begin 

case norm. Agregat ionnarne Cf 1 1 



of 
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’ 1’ : com put ex 1 ; 

’ 4’ : cornput ex 2 ; 

end 5 
end ; 
end ; 

END ; 



PROCEDURE WIN7 ; 

BEGIN 

gotoxy < 2 , 2 ) ; 

write ( ’ ordinal ranking ’ ) ; 

i f norm. Broadcast ing then 
begin 

for a := 1 to nurno fusers do 
beg i n 

gotoxy ( (6*a)+S, 4 ) ; 

write ( copy ( usersnames Ca ] , 1 , 3 ) ) 

end 5 

for a := 1 to nurnof al ternat i ves do 
begin 

gotoxy ( 2 , a +5 ) ; 

write ( copy (al tnamesSCa] , 1 , 3 ) ) 

end 5 
end 
e 1 se 
begin 

gotoxy ( 6, 4 ) ; 

write ( usersnarnesCxxxH ) ; 

end ; 

if norm. Broadcast ing then 
beg in 

for a := 1 to nurnof users do 
begin 

ordinal! : = ordinal Ca] ; 

for b := 1 to numofal ternat i ves d 

beg i n 

gotoxy < (6 * a) +2 , b + 5 ) ; 

write ( ordinallCbl ) ; 

end ; 
end ; 
end 
e 1 se 
beg in 

ordinall := ordinal Cxxx] ; 

for b s= 1 to numofal ternat i ves do 

begin 

gotoxy <6 , b + 5 ) ; 

end ; 

END ; 
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PROCEDURE WINS ; 

BEGIN 

window (51, 1, 00, 16 ) ; 

t ex t background ( white ) 5 

clrscr ; 

text co lor < black ) ; 

gotoxy ( 1 , £ ) ; 

write ( 1 group results 1 ; 

for a := 1 to 4 do 

beg in 

gotoxy ( 6 *a , 4) 5 

write ( 1 r’ , a ) ; 

end ; 

for a := 1 to nurnofal ternat i ves do 
begin 

gotoxy ( £, a+5 ) ; 

write ( copy (alt namesS Cal , 1,3) ) ; 

end ; 

if norm- ftgregat ion then 
beg i n 

computer 1 ; 

computer 4 5 



end 
else 
beg i n 




for fl 
begin 


:= 1 to 4 do 


case 


norm- Agregat i onname C f 1 1 
’ 1 ’ : computer 1 5 

’ 4 1 : computer 4 ; 


end 
end ; 
end ; 
END ; 


5 


PROCEDURE 

BEGIN 


WINDDWl ; 



window (1,17,00,63 ) ; 

text background ( blue ) ; 

clrscr ; 

text co lor ( white ) ; 

gotoxy ( £, £) ; 

write ( ’ rl : sum of ranks 1 ) ; 

gotoxy (£, 3) ; 

write ( ’re! : additive ranking M ; 

gotoxy ( 40, £) ; 

write ( ’ r3 : multiplicative ranking ’ ) ; 

gotoxy ( 40, 3) ; 

write ( 1 r4 : sum of outranking relations 1 ) 

gotoxy ( £, 5) ; 
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text co lor ( red ) ; 

write ( ’hit any key to continue 1 ) 

read < kbd , ch ) ; 

END ; 

BEGIN <* MAIN *) 

pruserl := narnex ; 
n urnofalternatives : = problems. Nurnof al ternat i ves 
numof users norm. Nurnof users ; 

usersnarnes : = norm. Usersnames ; 
weight := norm. We i ght ; 

alt vectors Cal : = sol ut ion. Ahp. Alt vector 1 ; 

altnamesS : = sol ut ion. A 1 ternat i ves ; 
b : = 0 ; 

for a := 1 to nurnof users do 
beg in 

user x : - norm. Usersnames Cal s 

filnamel : ~ concat ( problnarne, ’ . ’ . Userx ) ; 

if exist ( filnamel ) then 
b : = b + 1 ; 

end ; 

countahp : - 0 ; 
count elect re := 0 ; 

if b < numof users then 
beg in 

clrscr ; 

writeln ( ’the solutions are not completed ’ ) 

end ; 

if b = nurnof users then 
beg in 

for a : — 1 to numof users do 
beg in 

userx := usersnames Lai ; 

filnamel 2 = concat < problname, ’ . ’ , Userx ) ; 

pr user : = f i 1 name 1 ; 

if exist < pruser ) then 
beg i n 

read sol ut ionf i le ; 

if ( sol ut ion. Ahp. Stat us ) then 

beg i n 

countahp : = countahp ■+■ 1 ; 

al t vectors Cal : = sol ut ion. Ah p. A 1 1 vector 1 
altnarnesS : = sol ut ion. al ternat i ves ; 
Altvector8 : = alt vectors Cal ; 
end ; 

if ( sol ut ion. Elect re. Stat us ) then 
begin 
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count elect re := count elect re + 1 ; 

cornput e i nd i v i d ua 1 vect or ; 

ind ivi dual vector Cal : = ind i vidua 1 vector 1 ; 

altnarnesS : = sol ut ion. flit ernat ives ; 
end ; 
end ; 
end ; 

if count ah p = numof users then 
beg i n 

for a := 1 to numof users do 
begin 

altvectorS := alt vect orS Call ; 

for b := 1 to numof alt ernat ives do 

altvectorSCbH : = alt vect orQ CbU * weight Call ; 
alt vect or 6 Call := alt vect or Q ; 
end ; 

window (1, 1,25, IS ) ; 

text background ( 14 ) $ 

clrscr 5 

window (2S, 1, 50, IS ) ; 

t ex t background ( 14 ) ; 

clrscr ; 

window (51,1,80,16 ) ; 

t ex t background ( white ) ; 

clrscr ; 

window (1,17,80,23 ) ; 

t ex t background ( blue ) ; 

clrscr ; 

window (1,24,80,25 ) ; 

t ext background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

got oxy ( 2 , 1 ) ; 

write ( ’ step 5 : computation of group decision ’ ) 

gotoxy ( 2 , 2 ) ; 

write (’all the solutions have computed with ahp ’ ) 

window (1,1,25,16 ) ; 

t ext background ( 14 ) ; 

text col or ( blue ) ; 

clrscr ; 

gotoxy ( 1,2 ) ; 

write ( ’ alt. Cardinal rankings ’ ) ; 

w i n 1 ; 

w i n 2 ; 
w i n3 ; 
window! ; 
end ; 
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if countelectre = numof users then 
beg i n 

for a : = 1 to numof users do 
begin 

alt vectors := al t vectors Call ; 

for b := 1 to nurnofalternat ives do 

al t vectors Cb] := altvectorSCb] * weight CaJ 5 
alt vectors Ca 1 z = alt vectors ; 
end ; 

window (1,1, £5, IS ) ; 

text background ( 14 ) ; 

clrscr ; 

window (26, 1,50, IS ) ; 

text background ( 14 ) ; 

clrscr ; 

window (51,1,80, IS ) ; 

text background ( white ) 5 

clrscr ; 

window (1,17,80,23 ) ; 

text background ( blue ) ; 

clrscr ; 

window (1,24,80,25 ) ; 

t ex t background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

got ox y ( 2 , 1 ) ; 

write ( 1 step 5 : computation of group decision ’ ) 

gotoxy ( 2 , 2 ) ; 

write (’all the solutions have computed with electre’ ) 

window (1,1,25, IS ) ", 

text background ( 14 ) ; 

text co lor ( blue ) ; 

clrscr ; 

gotoxy ( 1,2 ) ; 

write ( 1 alt. Individual rankings 7 ) ; 

w i n4 ; 
win5 ; 
winS ; 
wind owl ; 
end ; 

count 12 := 0 ; 

for a := 1 to numof users do 

begin 

userx := usersnarnesCa] ; 
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filnarnel := conca t ( problnarne, 7 - 7 , Userx ) ; 

pruser := filnarnel ; 

read so 1 at i onf i le ; 

if sol at ion. Ahp. St at as then 

beg in 

i ndexm Call : = 7 a 7 ; 
coant 12 : = coant 12 + 1 ; 

end 
else 
beg i n 

i f so 1 at i on. El ect re. St at as then 
beg in 

i ndexm Call : = 7 e 7 ; 
coant IS : = coant 1 S + 1 ; 

end 
else 

indexmCaD : = 7 n 7 ; 
end ; 
end ; 

if count IS < nurnof users then 
begin 

window ( 1,1,80,35) ; 

text co lor ( 14 ) ; 

clrscr ; 
got ox y ( 3, 3) ; 

text co lor ( blue ) ; 

write ( 7 the solutions are not completed 7 ); 
gotoxy ( S, 4) ; 

write ( 7 hit any key to return to main menu 7 ) 

read ( kbd,ch ) ; 

goto telosl ; 
end 
e 1 se 
beg i n 

for a : = 1 to nurnof users do 
beg i n 

if i ndexm Call = 7 a 7 then 
beg in 

alt vectorB : = alt vectors Call ; 
for b : = 1 to nurnof alt ernat i ves do 
beg i n 

surna : = 1 ; 

for c := 1 to ( nurnofalternat ives ) do 

beg in 

if alt vectors Cb3 < alt vectors CcU then 
surna s= surna + 1 ; 

end ; 

ordinallCbll := surna ; 
end ; 

ordinal Ca] := ordinal 1 ; 
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end 

else 

begin 

i nd i v i dua 1 vect or 1 : - i rid ividua 1 vect or Zal s 

for b : = 1 to nurnofalterriat ives do 
beg i n 

surna := 1 ; 

for c := 1 to ( nurnofalterriat ives ) do 
beg in 

if individualvectorl Cb] < 
ind i v id ual vector 1 Zcl then 
surna : = surna + 1 ; 

end ; 

ind i vidua lord i rial 1 Zbl : = surna ; 
end ; 

ordinal [a] : = indi vidua lord inal 1 ; 

end ; 
end ; 



w i nd ow (1,1,25,18 ) ; 

text background < 14 ) 5 

clrscr ; 

window (£6, 1, 50, 16 ) ; 

text background ( 14 ) ; 

clrscr 5 

window (51,1,80, 1£ ) ; 

text background ( white ) ; 

clrscr ; 

window (1,17,80,23 ) ; 

text background ( blue ) ; 

clrscr ; 

window (1,24,00, £5 ) ; 

t ex t background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

got oxy ( 2 , 1 ) ; 

write (’step 5 : computation of group decision ’ ) ; 

got oxy ( 2 , 2 ) ; 

write (’ the solutions have computed with electre or 
ahp ’ ) ; 

window (1,1,25,18 ) ; 

textbackground ( 14 ) ; 

text col or ( blue ) ; 

clrscr ; 

w i ri7 ; 
w i n 8 ; 
windowl ; 
end ; 

window (1,1,80,25) ; 
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tel os 1 : 
end ; 
END ; 



INCLUDE FILE DIRLIST1 



PROCEDURE DIRLIST : 

TYPE 

Chari Earn = array C 1- - IS 3 of Char; 
String20 = string C £0 3; 

RegRec = record 

PX, BX, CX, DX, BP, SI, 

DI, DS, ES, Flags : Integer; 

end ; 

VAR 

Regs : RegRec; 

DTP : array C 1 . . 43 3 of Byte; 

Mask : CharlSarr; 

NaniR : String20; 

Error, I : Integer; 



BEGIN 

Fi llChar (DTP, SizeOf (DTP) , 0) ; < Initialize the DTP 

buffer) 

F i 1 IChar (Mask, S i zeOf (Mask ), 0) ; -C Initialize the mask > 

Fi 1 IChar (MarnR, Si zeOf (NamR) , 0) ; -C Initialize the file 



Wr i t eLn ; 

UJRITELN ; 

Regs. PX := $1P00; 

Regs. DS := Seg (DTP) ; 

Regs. DX Ofs(DTP) ; 
MSDos ( Regs ) ; 

Error := 0; 

Mask s= » ????????. GN? 1 ; 



= *4E00; 

= Seg (Mask) ; 
= Of s (Mask) ; 



Regs. PX 
Regs. DS 
Regs. DX 
Regs. CX 
MSDos ( Regs) ; 

Error := Regs. PX and $FF ; -C Get Error ret urn > 



name . 



-C Function used to set the DTP > 
-C store the parameter segment in 
DS > 

{ offset in DX > 

-C Set DTP location > 

-C Use global search > 

-C Get first directory entry > 

-C Point to the file Mask > 

-C Store the option > 

-C Execute MSDos call > 
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I 



1 



the first 



:= 1 



-C initialize ’ I ’ to 



element > 

if (Error = 0) then 
repeat 

NamRCIJ := Chr (Mem CSeg (DTP) : Of s ( DT P ) -*-2S + 1 1 ) ; 

I : = I + 1 ; 

until not (NamR Cl — 1 □ in C’ ’ . . ’ ^ D ) or <I>20); 



NamRC03 := Chr(I-l); 



while (Error =0) do 
begin 

Error : = 0; 

Regs. ftX := $4F00; 



Regs. CX : = 22 ; 

MSDos ( Regs ); 

Error := Regs. AX and $FF ; 
I := 1; 



-C set string length because 
assigning > 

-C by element does not 
set length> 



-C Function used to get the 
next > 

-C directory entry > 

-C Set the file option > 

< Call MSDos > 

-C get the Error return > 



repeat 

NamR Cl 3 : = Chr (MernCSeg (DTP) sOfs (DTP) +S9+ID ) ; 

I s= I + 1 ; 

until not (NamR Cl — 10 in C’ 1 . . ’ D ) or (I > 20); 
NamR C03 := Chr ( 1-1 ) ; 

if (Error = 0) THEN 



UriteLn ( 1 ’ , NamR) ; 

end 

END ; 



INCLUDE FILE FILES 



PROCEDURE QPENFI LE ( var prnarne : name ) ; 

BEGIN 

assign ( problemfile , prnarne ) ; 

rewrite ( problemfile ) ; 

with problerna do 
beg in 

narnel : = prnarne ; 
numof al ternat i ves := 0 ; 
numof users s= 0 ; 

levels := 0 ; 
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f i 1 lchar 
fill char 
fill char 
f i 1 lchar 
fill char 
f i 1 lchar 
f i 1 lchar 
f i 1 lchar 
f i 1 lchar 
f i 1 lchar 



( level 1 , si zeof ( level 1 ), 0) ; 

( 1 eve 1£, si zeof < 1 eve IE:) , 0) ; 

( level 3, si zeof ( level 3) , 0) ; 

( 1 eve 1 4, si zeof ( 1 eve 1 4 ) , 0 ) ; 

( levelo, si zeof ( level 5) , 0) ; 

( levels, si zeof ( levelS) , 0) ; 

( level 7, si zeof ( level 7) , 0) ; 
(sublevel 1, si zeof (sublevel 1 ) , 0) ; 
(sublevel£, si zeof ( sub 1 eve IE:) , 0) ; 
(alternat i ves, si zeof (alternat i ves) 



end ; 

write ( problernfile , probler na ) ; 

close ( problernfile ) ; 

END ; 
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PROCEDURE OPENSOLUT I ONF I LE ( var pruser : name ) ; 

BEGIN 

assign ( sol ut ionfi le, pruser ) ; 

rewrite ( sol ut ionfi le ) ; 

with solut iona do 
beg in 

ahp. Nurnoftries : - 0 ; 
elect re. Nurnof tries : = 0 ; 
nurnof al t ernat i ves := 0 ; 
nurnofcriteria : = 0 ; 

f i 1 lchar (ahp. ftltvect orl , si zeof (ahp. flltvectorl ) , 0) 
username : = ’ 1 ; 
userid :== ’ 1 ; 

f i 1 lchar (alternat ives, si zeof (alternat ives) ,0) ; 

f i 1 lchar (norrnvectorl , si zeof (normvector 1 ) , 0) ; 

elect re. St at us : = false 
f i 1 lchar (electre. Outranking, 

si zeof (electre. Outranking ) , 0) ; 

end ; 

wr i t e ( so 1 ut i on file , so 1 ut i ona ) ; 
close ( solut ionfi le ) ; 

END ; 



PROCEDURE QPENNQRMF I LE ( var norrnnarne 



name ) 



BEGIN 

assign ( norrnfile , norrnnarne ) 
rewrite ( norrnfile ) ; 

with norma do 
begin 

n urno fusers 
mod i f y t i rues 
lastt irne 
agregat ion 



= 0 ; 

= 0 ; 

= 0 ; 

= false 
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nai := false ; 

specialized := false ; 

broadcasting := false ; 

modify : = false ; 

f i 1 ichar ( usersnarnes, si zeof ( usersnames) , 0> ; 
f i 1 Ichar (spec index, si zeof (spec index ) , 0) ; 
fill char ( users ids, si zeof ( users ids ) ,0) ; 
fillchar (weight , sizeof (weight) , 0) ; 

f i 1 Ichar (current name, si zeof (currentnarne) , 0) ; 
f i 1 Ichar (agregat ionnarne, sizeof (agregat ionnarne) , 0) 
end ; 

write ( normfile , norma ) ; 

close ( normfile ) ; 

END ; 



PROCEDURE QPENSPECFILE ( var pruser 



name ) 



BEGIN 

assign < specfile, pruser 
rewrite ( specfile ) ; 

with specfilel do 
beg in 

nurnof users := 0 ; 
pfactor := 0 ; 



q fact or : 
f i 1 Ichar 
fill char 
fill char 
fill char 
f i 1 lcnar 
fill char 
fill char 
f i 1 1 char 
f i 1 Ichar 
f i 1 Ichar 
fill char 
fill char 
f i 1 Ichar 



:=0 ; 

(vector 1 , si zeof ( vector 1 ) , 0) ; 

(vectors, si zeof ( vector 2) , 0) ; 

(vector 3 , si zeof (vector 3 ) , 0) ; 

(vector 4 , si zeof (vector 4 ) , 0 ) ; 

(vectors, sizeof (vectorS) , 0) ; 

(vectors, si zeof (vectorS) , 0 ) ; 

( vector 7 , si zeof (vector 7 ) , 0 ) ; 
(norrnvectorS, sizeof (norrnvectorS) , 0 ) ; 

(normvectorl, s i zeof ( norm vect or 1 ) , 0) ; 

(norm index, si zeof (normindex ) , 0) $ 

(alternat ives, si zeof (alternat i ves) , 0) 
(al trnatr i x , s i zeof ( al t mat r i x ) , 0) 5 

( grad i rig, si zeof ( grad ing ) , 0) ; 

numofcriteria := 0 ; 
nurnof alternat ives s= 0 ; 
for a := 1 to 3 do 
begin 



solvedCa] := false ; 
final index Call := false ; 
f inal index 1 Call 2= false ; 
end ; 

completed := false ; 
cornpl et edal 1 2= false 5 

ahp. status 2= false ; 

Fi 1 Ichar (ahp- alt vect or 1 , si zeof (ahp- al t vector 1 ) , 0) 
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ah p- nurnof tries : = 0 ; 

electre. status := false ; 
e 1 ect re . rmmo ft r i es : = 0 ; 

F i 1 lchar (electre- outranking, si zeof (electre- outranking ) , 0 ) 
End 5 

write ( specfile , specfilel ) ; 

close ( specfile ) ; 

END ; 

INCLUDE FILE UTILITIES 
PROCEDURE PISKDflTfl : 

BEGIN 

•repeat 

window (1, 1,40, 12) ; 

text background ( blue ) ; 

clrscr ; 

window (41, 1, 30, 12) ; 

text background ( blue ) ; 

clrscr ; 

window (1,13,30,23) ; 

text background ( 14 ) ; 

clrscr ; 

window ( 1,24,80,25) ; 

text background ( white ) ; 

clrscr ; 

text co lor ( black ) ; 

got oxy ( 2 , 1 ) ; 

write ( stringl 2 Q ) ; 

gotoxy ( 2 , 2 ) ; 

write ( ’ files related to the problem ’ ) ; 

window (1,1,40,12) ; 

t ext background ( blue ) ; 

text co lor ( white ) ; 

gotoxy ( 2, 2) ; 

write ( ’ names of problems s’); 

dir list a ; 

window (41 , 1 , 30, 12) ; 

text background ( blue ) ; 

text co lor ( white ) ; 

gotoxy ( 2 , 2 ) ; 

write ( ’ names of norm : ’ ) ; 
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d ir 1 ist ; 

window <1,13,80,23) ; 

text background < 14 ) ; 

text co lor < black ) ; 

gotoxy ( 3,2) ; 

write(’ do you want to see a predefined norm <y/n) ? M 

XI := 56 5 yl := £ ; 

identify < answer, xl, yl ) ; 

if answer = ’ y’ then 

beg i n 

xl : = 3 ; yl : = 3 ; 
norms e 1 ect i on < x 1 , y 1 ) ; 
d ispl ay norm ; 
end ; 

unt i 1 answer = 5 n’ ; 

clrscr ; 

repeat 

window (1, 1,40, 12) ; 

text background < blue ) ; 

clrscr ; 

window <41, 1, 00, 12) ; 

text background < blue ) ; 

clrscr ; 

window <1,13,80,23) ; 

t ext background < 14 ) ; 

clrscr ; 

window < 1,24,80,25) 5 

text background < white ) ; 

clrscr ; 

text co lor < black ) ; 

gotoxy < 2 , 1 ) ; 

write < stringl£Q ) ; 

gotoxy <2, 2) ; 

write < ’ files related to the problem ’ ) 5 

window <1,1,40,12) ; 

t ext background < blue ) ; 

text co lor < white ) ; 

gotoxy < 2 , 2 ) ; 

write < ’ names of problems : ’ ) ; 

dir list a ; 

window <41, 1, 80, 12) ; 

text background < blue ) ; 

text co lor < white ) ; 

gotoxy < 2 , 2 ) ; 

write < ’ names of norm : ’ ) 5 
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d ir 1 ist ; 

window (1,13,80,23) ; 

t ext background ( 14 ) ; 

text co lor ( black ) ; 

got oxy ( 3,2) ; 

write (’do you want to see a predefined problem (y/n) ?’ 

XI : = 56 ; y 1 : = 2 ; 

identify ( answer, xl, yl ) ; 

if answer = ’ y’ then 

begin 

gotoxy ( 3, 3) ; 

repeat 

cl red ; 

write ( ’ name of problem ? ’ ) ; 

Read ( answer ) ; 

answer : = stupcase ( answer ) ; 

answer : — concat ( answer, ’ . ’ , ’ Def’ ) ; 

until ( exist ( answer )); 
prname : = answer ; 
readproblemf i le ; 

window (1,1,80,7 ) ; 

text background ( blue ) ; 

clrscr ; 

text col or ( white ) ; 

gotoxy (2,1) ; 

write ( ’name of problem : ’, problem- Name 1 ) ; 

gotoxy ( 2, 2 ) ; 

write ( ’ alternatives : ’ ) ; 

for a : - 1 to problem, Nurnof a 1 1 ernat i ves do 

beg i n 

gotoxy ( 2, a+2 ) ; 

write ( problem- Pi It ernat i ves Ca3 ) ; 

end ; 

window ( 1,8,80,25 ) ; 

text background ( blue ) ; 

clrscr ; 

gotoxy (2,1); 

write ( 5 criteria s ’ ) ; 

display ( problem ) ; 

gotoxy ( 2, 17 ) ; 

text co lor ( red ) ; 

write ( ’hit any key to continue ’ ) ; 

read ( kbd , ch ) ; 

text co lor ( white ) ; 

end ; 

unt i 1 answer = ’ n’ ; 

END ; 
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PROCEDURE DISKSTflTUS 






BEGIN 

diskdata ; 
END 5 



PROCEDURE REPD1 : 

BEGIN 

repeat 

gotoxy ( 2, £) ; 

cl red ; 

write (’ the name of the problem ? ’ ) 

Read ( answer ) ; 

specnarne : = concat ( answer, ’ - Spc’ ) ; 

delete ( answer , 8 , length ( answer) ) ; 

orna me := concat C answer, ’ - Def’ ) ; 
oroblnarne : = answer ; 
until exist ( prname ) ; 

END ; 

- RQCEDLRE READS : 

BEGIN 

repeat 

gotoxy (2,4) ; 

cl red ; 

write ( 1 the name of the norm ? ’ ) ; 

Read ( answer ) ; 

delete ( answer ,8, length ( answer) ) ; 

answer := stupcase < answer ) ; 

norrnnarne : = concat ( answer, ’ . Gn’ ) ; 
until exist (norrnnarne ) ; 

END ; 



PROCEDURE ^EPD2 ; 

BEGIN 

gotoxy ( 8,6 ) ; 

write ( ’ your name ? ’ ) ; 

Error := false ; 
repeat 

gotoxy ( IS, 6 ) ; 

clreol ; 

read ( narnex ) ; 

narnex := stupcase ( narnex ) ; 

for a := 1 to norm. Nurnof users do 
beg in 

if narnex = norm. Usersnarnes Call then 
error := true ; 

end ; 
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5 



ant i 1 ( error ) 

b : = 0 ; 

repeat 

b : = b + 1 ; 

until ( narnex = norm. UsersnamesCb] ) ; 

str ( b, inte) ; 

answer := concat ( Narnex ) ; 

pruser := concat ( problnarne, answer) ; 
pruserS : = concat ( problnarne, ’ ■ spc’ ) ; 

END ; 



PROCEDURE REPD4 ; 

BEGIN 

gotoxy ( 2, 8 ) ; 

write ( ’ your id ? ’ ) ; 

If ( norm. UsersidsCb] = ’ x’ ) then 
beg i n 

gotoxy ( IS, 8) ; 

read ( idx) ; 
idx : = stupcase ( idx ) ; 

norm. Users ids Cb] := idx ; 
end 
else 
begin 
repeat 

gotoxy ( 16,8) ; 

clreol ; 

read (idx ) ; 

idx : = stupcase ( idx ) ; 

until ( idx = norm. UsersidsCb] ) ; 

end ; 

END ; 



PROCEDURE REPPS ; 

BEGIN 

gotoxy ( 2, 10 ) ; 

write ( ’ the method that you want to Lise ? ’ ) ; 

Repeat 

gotoxy ( 49, 10) ; 

clreol ; 

read (met hod x ) ; 

methodx := stupcase ( methodx ) ; 

until (( methodx = ’ ahp’ ) or ( methodx = ’ electre’ ) 
or ( methodx = ’direct’ ) ) ; 

END ; 



182 



PROCEDURE DATA : 

BEGIN 

window ( 1, 24, 80, 25) ; 
text background (white) ; 
text co 1 or ( black ) ; 

got oxy (2,1) ; 

clreol ; 

write ( stringl2Q ) ; 

got oxy (2,2) ; 
write ( stringl29 ); 
window ( 1,13,80,23) ; 

t ext background ( 14 ) ; 

clrscr ; 
readl ; 
read2 ; 

readnorrnf i 1 e ; 
read 3 ; 
read 4 ; 

END ; 



INCLUDE FILE PROCED 



FUNCTION STUPCQSE (st : name ) : name ; 

VAR 

I : integer ; 

BEGIN 

for I : = 1 to length (st) do 

st C i 1 : = upcase ( st C i 1 ) ; 

stupcase : = st ; 

END 



FUNCTION EXIST (filename : name ) : boolean ; 

VAR 

f i 1 : file ; 

BEGIN 

assign ( fil , filename ) ; 

<*i-> 

reset ( fil ) ; 

<*i + > 

exist := ( ioresult = 0 ) ; 

END ; 



PROCEDURE UJAIT 
BEGIN 



got oxy (50, 24) 
read ( kbd, ch ) 



END 



wri t e ( 



’hit any key to continue 



) 



is; 






easel ) 






PROCEDURE CLEAR 1 ( var problem : 

BEGIN 

for a :=1 to 5 do 

problem. Level 1 Cal : = ’ ’ 

END ; 

PROCEDURE CLEftRSCREEN (var line : integer ) ; 

BEGIN 

if line = 13 then 
begin 

gotoxy (1,4) ; 

for e := 1 to 10 do 
de 1 1 i ne ; 

1 i ne : = 3 ; 
end ; 

END ; 



PROCEDURE CLEAR ( var matrixE : level ) ; 

BEGIN 

for line := 1 to 5 do 
beg in 

for a : = 1 to 5 do 

matrixECl ine, a] := ’ ’ 

end 
END ; 

PROCEDURE CONVERT (var answerE : ask ;var w, dl : 
BEGIN 

if ( answerc'Cw] <> MM and ( answerSCw] <> ’ 

and ( answerECwH <> 1 3M and ( answerSCw] 

and ( answerSCw] <> ’ 5’ ) 

then 

d 1 : = 0 ; 

case answerBCwl of 



’ 1 ’ 


dl 


= 1 ; 




dl 


== c! 5 


’ 3 ’ 


dl 


= 5 


i v 


dl 


= 4 ; 


1 5’ 


dl 


= 5 ; 



end ; 

END ; 

PROCEDURE IDENTIFY ( var answer s name ; 
integer ) ; BEGIN 

repeat 

gotoxy ( x 1 , y 1 ) ; 
clreol ; 

read ( answer ) ; 

answer : = stupcase ( answer ) ; 

unt i 1 ( ( answer = ’ yM or ( answer = 1 nM ) ; 

END 



integer ) 
2 ’ ) 

< > ’ 4 M 



var x 1 , y 1 
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PROCEDURE CHECKMUMBER ( var answer : name ; 

var xl, yl, limit : integer ; 

var count 3 : real ) ; 

BEGIN 

repeat 

got oxy < xl, yl) ; 
clreol ; 

read ( answer ) ; 

val ( answer , count 3, code 1 ) ; 

until ((cod el = 0) and (count 3 <= limit) and (count 3 >= 0) ) ; 

END ; 



PROCEDURE 5QRT1 ( var norrnvectorl : vectorg ; 

var norrnvect or£ : vectorn ; 
var nurnofcriteria : integer ) ; 

BEGIN 

repeat 

count := 0 ; 

for a : = 1 to nurnofcr i t er i a do 
beg i n 

if norrnvect or 2 Call < normvector2Ca+l] then 
begin 

exchanged Call : = norrnvect or£ Call ; 
norrnvect or£ Call : = norrnvect or 8 Ca+1 1 ; 

norrnvector£Ca+13 : = exchange£Ca] ; 
exchangel [a] : = norrnvectorl Cal ; 

norrnvectorl Call : = norrnvectorl Can- 13 ; 

norrnvectorl Ca+13 := exchangel Ca] ; 

count : = count + 1 ; 

end ; 
end ; 

unt i 1 count = 0 ; 

END ; 



PROCEDURE WRITENQRMFILE ; 

BEGIN 

assign ( norrnfile , norrnnarne ) ; 

reset ( norrnfile ) ; 

norm a : = norm ; 

write ( norm file , norma ) ; 

close ( norrnfile ) ; 

END ; 



PROCEDURE UJR I TEPRQBLEMF I LE : 

BEGIN 

assign ( problernfile , prnarne ) ; 

reset ( problernfile ) ; 
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problema := problem ; 

write ( problemfile, problema ) ; 

close ( problemfile ) ; 

END ; 



PROCEDURE REflDPROBLEMFILE ; 

BEGIN 

assign ( problemfile , prnarne ) ; 

reset ( problemfile ) ; 

read ( problemfile , problema ) ; 

problem := problema ; 
close ( problemfile ) ; 

END ; 



PROCEDURE REPDNORMF I LE ; 

BEGIN 

assign ( normfile , norrnnarne ) ; 

reset ( normf i le ) 5 

read ( normfile , norma ) ; 

norm s = norma ; 

close ( normfile ) ; 

END ; 



PROCEDURE REQDSQLUTIQNFILE : 

BEGIN 

assign ( sol Lit ionf i le , pr user ) 

reset ( sol Lit ionf i 1 e ) ; 

read ( so 1 Lit i onf i 1 e , so 1 Lit i ona ) 

so 1 Lit i on 2 = so 1 Lit i ona ; 

close ( so 1 Lit i on f i 1 e ) ; 

END ; 



PROCEDURE REflDSPECFILE ; 

BEGIN 

assign ( specfile , pruserS ) ; 

reset ( specfile ) ; 

read ( specfile , specfilel ) ; 

specfileE := specfilel ; 
close ( specfile ) ; 

END ; 
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PROCEDURE WRITESQLUTIQNFILE : 

BEGIN 

assign ( sol Lit iorif i le , pruser ) 
reset ( solutionfile ) ; 



so 1 ut i ona : = so 1 at i on ; 

wr i t e ( so 1 at i on file, so 1 a t i ona ) ; 

close ( solutionfile ) ; 

END ; 



PROCEDURE WR I TESPECF I LE : 

BEGIN 

assign ( specfile , pruserG ) ; 

reset ( specfile ) ; 

specfilel ; = specfileE ; 
write (specf i le, specfilel ) ; 

close ( specfile ) ; 

END ; 
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APPENDIX B 



FIGURES OF SCENARIO 1 



NAME OF GROUP NORM ? select frigates 






1. IDENTIFICATION OF GROUP MEMBERS 






1.1 Nunber of Group Meiabers ( MX 3 ) 


7 


3 


- Name of Member # 1 


7 


userl 


- Name of iMember # 2 


7 


user2 


- Name of Member # 3 


7 


user3 


1.2 ID of Member A1 


7 


xl 


2. GROUP DECISION TECHNIQUES 






2.1 Weighted Majority Rule : 






- EGUAL Weights (Y/N) 


7 


y 


2.2 Collective Evaluation Mode 






Choose one of the two nodes : 






<1) Each group member will evaluate alternatives 


according to all criteria 






(2) Each group member will evaluate only alternatives 


according to his exclusive area of expertise 


Enter selection ? 2 

The name of the problem ? ships 






- Name of user for criteria WEAPONS : 




userl 


- Name of user for criteria ELECTRONICS 


: 


user2 


- Name of user for criteria ENGINE : 




user3 


- Name of user for criteria ECONOMICAL 


: 


user3 


2.3 Automatic Selection of Techniques of 






Aggregation of Preference (Y/N) 


7 


y 


2.3 Automatic Computation of NAI (Y/N) 


i 


y 


3. INFORMATION EXCHANGE 






3.1 Broadcasting of individual outputs (Y/N) 

3.2 Permission to Modify Individual Analyses 


7 


y 


AFTER Group analyses (Y/N) 




y 


3.2.1 How Many Times (MAX 10 ) 


7 


9 


3.3 Time Limit to Submit Individuals Results : 






3.3.1 How Many Days (MAX 14 ) 


7 


7 


3.3.2 Hours ( 1:00 to 24:00 ) 


7 


13:00 


STEP 2 : GROUP NORM DEFINITION 



Figure 4. Group Norm Definition 



laa 



NAME OF PROBLEM : SHIPS 




ENTER THE ALTERNATIVES : 


1. type 1 






2. type 2 

3. type 3 

4. q 


ENTER THE CRITERIA : 




1. weapons 






1.1 


air-crafts 




1.2 


guns 




1.3 


missiles 






1.3.1 ssm 

1.3.2 sam 


} 


1.4 


a/s weaoons 




2. electronics 




2.1 


radar 






2.1.1 survei Harare 

2.1.2 fire control 

2.1.3 navigation 




2.2 


sonar 




3. engine 






3.1 


performance 




3.2 


maintance 




4. cost related 




4.1 


technical support 




4.2 


life cycle 




4.3 


cost of operation 




4.4 


cost 




4.5 


q 




STEP 1 : MULTIPLE CRITERIA GROUP PROBLEM DEFINITION 


Definition of criteria * list level 2)nd 


level 3) nd level Q)uit 



Figure- 5. Step 1 Group Problem Definition 
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NAMES OF PROBLEMS : 


NAMES OF NORM s 


SHIPS. DEF 


NOraiSH.GN 


THE NAME OF THE PROBLEM ? shios 




THE NAME OF THE NORM ? normsh 




TOUR NAME ? userl 




YOUR ID ? xl 




THE METHOD THAT YOU WANT TO USE ? 


ahp 


STEP' 3 : PRIORITIZATION OF EVALUATION 
Identification of the problem Methods 


CRITERIA 
: AHP or DIRECT 



Figure 6 User 1 / Problem Initiation 
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F i g ure 



PAIRWISE COMPARISON 






PRIORITY VECTOR 






WEAPO 


ELECT 


EN6IN 


ECONO 






WEAPO 




1.20 


2.00 


2.50 


WEAPONS 


0.333 


ELECT 


0.33 




1.95 


2.40 


ELECTRONICS 


0.305 


EN6IN 


0.50 


0.51 




1.90 


EN6INE 


0.183 


ECONO 


0. 40 


0.42 


0.53 




ECONOMICAL 


3. 145 



** LflMDA MAX 


= 4.20 


CONSISTENCY INDEX 


= 0. 20 


RANDOMIZED INDEX 


ii 

111 


CONSISTENCY RATIO 


= 0.30 



Jn 



□ 



WEA ELE EN6 ECO 
3.37 0.33 3.13 0.14 

DO YOU WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) ? 



STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Method : AHP 



7. User 1 / Pr ior i t i zat i on of hval uat ion Criteria 
at the First Level 
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PAIRWISE COMPARISON 






PRIORITY VECTOR 






AIR-C 


GUNS 


MISSI 


A/S U 






AIR— C 




1.70 


1.20 


1.20 


AIR-CRAFTS 


0.307 


GUNS 


0.59 




0.56 


0.59 


SUNS 


0. 181 


MISSI 


0.83 


1.88 




1.10 


MISSILES 


0.256 


A/S U 


0.83 


1.70 


0.91 




A/S WEAPONS 


3.256 



** LAMDA MAX =4.31 

CONSISTENCY INDEX = 3.30 
RANDOMIZED INDEX = 3.0-3 
CONSISTENCY RATIO = 3. '33 



jUUU 



AIR MIS A/S GUN 
0.33 0.25 0.25 0.18 

DO YOU WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) ? 



STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Method : AHP 



Figure 3. User 1 / Prioritization of Evaluation Criteria 

at Level 2 For Criteria 1. i to 1.4 
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PAIRWISE COMPARISON 


PRIORITY VECTOR 




SSM SAM 






SSX 1.30 


SSM 


0.435 


SAM 0.77 


SAM 


0.565 



SSM SAM 
0.43 0.56 

HIT ANY KEY TO CONTINUE 



STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Direct input of criteria weights 



igure 9. 



User 



1 



/ Prioriti 
at Level 



at ion of Evaluation Criteria 
3 for Criteria 1.3.1 and 1.3.2 



19 



PRIORITY VECTOR 



WEAPONS 


0.400 


ELECTRONICS 


0.408 


ENGINE 


0.130 


ECONOMICAL 


0.370 




0.40 0.40 0.13 0.07 

DO YOU WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) ? 

STEP 3 : PRIORITIZATION GF EVALUATION CRITERIA 
Direct input of criteria weights 



Figure 10. User £ / Prior it i zat ion of Evaluation Criteria 

for Level 1 
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PRIORITY VECTOR 



RADAR 0.500 

SONAR 0.560 




RAD SON 
3.50 0.50 

DO YOU WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) ? 



STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Direct input of criteria weights 



Figure 11. User £ / Prioritization of Evaluation Criteria at 

Level £ for Criteria £. 1 and £. £ 
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PRIORITY VECTOR 



SURVEILLANCE 0.400 
FIRE CONTROL 8.408 
NAVIGATION 8.288 




SUR FIR NAV 
8.48 8.40 8.28 

DO YOU WANT TO MODIFY TIE EVALUATION OF T HE CRITERIA (Y/N) ? 



STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Direct input of criteria weights 



Figure 12. User 2 / Pr ior it i sat ion of Evaluation Criteria 

at Level 3 for Criteria 2. 1. 1 to 2. 1.3 
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PRIORITY VECTOR 




WEAPONS 


0.500 


ELECTRONICS 


0.250 


ENGINE 


0.100 


ECONOMICAL 


0.050 




0.50 0.35 0.10 0.05 

DO Y&l WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) ? 



STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Direct input of criteria weights 



j 



Figure 13. User 



/ Prior it isat ion of Evaluation Criteria 
at Level 1 



197 



PRIORITY VECTOR 



PERFORMftNCE 0.400 

WIINTWCE 0.600 



i 




i 



MAI PER 
0. 60 0. 40 

DO YOU WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) ? 



STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Direct input of criteria weights 



Figure 14- User 



/ 



Priorit izat ion of Evaluation Criteria at 
Level £ for Criteria 3.1 and 3- £ 
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PRIORITY VECTOR 



TECHNICAL SUPPORT 0.400 
LIFE CYCLE 0. 100 
COST OF OPERATION 0.400 
COST 0.100 



! i 

! i 

4 I 1 

I 1 i 

i 

I 

i 




TEC LIF COS COS 
0.40 0.10 0.40 0.10 

DO YOU WANT TO MODIFY THE EVALUATION OF Tf€ CRITERIA (Y/N) ? 



STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Direct input of criteria weights 



figure 15- 



User 3 / Pr ior i t i zat ion of Evaluation Criteria at 
Level £ for Criteria 4-1 To 4. 4 
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Tf€ FINAL CRITERIA ( 15) AND TFEIR WEIGHTS ARE : 




1. SONAR 


0.19 


12. TECHNICAL SUPPORT 


: 0.03 


2. AIR-CRAFTS 


0. 13 


13. COST OF OPERATION 


: 0.03 


3. A/S WEAPONS 


0.11 


14. LIFE CYCLE 


: 0.01 


4. MAINTANCE 


0.08 


15. COST 


: 0.01 


5. GUNS 


0.08 






6. SURVEILLANCE 


0.08 






7. FIRE CONTROL 


0.08 






8. SAN 


0.06 






9. PERFORMANCE 


0.05 






10. SSM 


0.05 






11. NAVIGATION 


3.04 




i 


DO YOU WANT TO REDUCE THE .NUMBER OF THE CRITERIA (Y/N) ? Y 


STEP 3 : PRIORITIZATION OF EVALUATION 
Determine the number of the criteria 


CRITERIA 





Figure IS 



Final Weights of Evaluation Criteria 



THE FINAL CRITERIA ( 5) AND TICIR HEIGHTS ARE : 




1. SONAR 


0.32 




2. flIR-CRflFTS 


0.22 




3. A/S WEAPONS 


0. IS 




4. NAINTANCE 


0.13 




5. GUNS 


0.13 




DO YOU WANT TO CHANGE THE NUMBER OF TIC CRITERIA (Y/N) ? 


N 


STEP 3 s PRIORITIZATION OF EVALUATION CRITERIA 
Determine the number of the criteria 



Figure 17 



The Reduced Set of Criteria 



PAIRWISE COMPARISON 





TYP1 


TYPE 


TYP3 






TYP1 




1.10 


1.20 


TYPE 1 


0.365 


TYPE 


0.91 




1.10 


TYPE 2 


0.331 


TYP3 


0.83 


0.91 




TYPE 3 


0.304 



PRIORITY VECTOR 



TYP1 TYP2 TYP3 
0.36 0.33 0.30 



** LfiMDA MAX = 3.00 

CONSISTENCY INDEX = 0.00 
RANDOMIZED INDEX = 0.38 
CONSISTENCY RATIO =0.00 



DO YOU WANT TO MODIFY THE DATA (Y/N) ? N 



STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 

Evaluation of alternatives According to Criterion SONAR AHP 



Figure 10. 



User 2 / Evaluation of the Alternatives According 
to Criteria Sonar (AHP) 
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PAIRWISE COMPARISON 




PRIORITY VECTOR 




TYP1 


TYP2 


TYP3 






TYP1 


1.20 


0.33 


TYP1 


0.330 


TYP2 0.33 




0.77 


TYP2 


0.275 


TYP3 1.20 


1.30 




TYP3 


0. 396 



4* LAMDA MAX 


= 3. 33 


CONSISTENCY INDEX 


= 0.00 


RANDOMIZED INDEX 


= 0.53 


CONSISTENCY RATIO 


= 0.00 




TY1 TY2 TY3 

0.40 0.33 0.27 DO YOU WANT TO MODIFY THE DATA (Y/N) ? 



STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 

Evaluation of Alternatives According to Criterion AIR-CRAFTS AHP 



Figure 19. 



User 1 / Evaluation of Alternatives According to 
Criterion Air-Crafts (flHP) 



£03 



1 



PAIRWISE COMPARISON 




PRIORITY VECTOR 




TYPE 


TYPE 


TYPE 






TYPE 


0.91 


0.91 


TYPE 123 


0.313 


TYPE 1. 10 




1.00 


TYPE 234 


0.344 


TYPE 1.10 


1.00 


| 


TYPE 1.2.3 

[ 


0.344 



** LAMDA MAX =3.30 

CONSISTENCY INDEX =-0.30 
RANDOMIZED INDEX » 0.58 
CONSISTENCY RATIO = -0.00 




TYP TYP TYP 

0.34 0.34 0.31 DO YOU NANT TO MODIFY THE DATA (Y/N) ? 



STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 

Evaluation of Alternatives According to criterion GUNS fW 



i 



Figure 20. 



User 1 / Evaluation of Alternatives According to 
Criteria Guns (AHP) 
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ALTERN. EVALUATION : WORKING AREA 


PRIORITY VECTOR 




TYP1 TYPE TYP3 






SON 6.08 8.00 7.00 


TYP1 


0.29 


AIR 


TYPE 


0.38 


A/S 


TYP3 


0.33 


MAI 






GUN 








TYP1 TYPE TYP3 

0.2S 0.38 0.33 Do you want to modify the weights (Y/N) ? 



STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Direct input 



Figure SI. User S / Evaluation of alternatives According to 
Criterion Sonar (DIRECT) 
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ALTERN. EVALUATION : U0RKIN6 AREA 


PRIORITY VECTOR 


TYPi TYP2 TYP3 
SON 
AIR 
A/S 

MAI 8.30 7.90 7.00 
GUN 


TYPI 0.36 

TYP2 0.32 

TYP3 '3.32 

i - - 






TYP TYP TYP 

0.36 0.32 0.S Do you want to raodify the weights <Y/N> ? 


STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Direct input 



i_ i guv^e 



User 1 / Evaluation of alternatives According to 
Cr i t er i on Ma i nt ance ( D I RECT) 
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FINAL SOLUTION 




TYP1 TYP2 YP3 
0.33 0.32 0.34 

HIT ANY KEY TO CONTINUE 



STEP 6 : COMPUTATION OF GROUP DECISION 
Final Result ( AHP ) - Specializes mode 



Figure £3. Final Group Solution of the Problem 
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APPENDIX C 

FIGURES FOR SCENARIO £ 



NAJ£ CF THE GROUP NORM ? select 1 



1. IDENTIFICATION OF GROUP MEMBERS 
1. 1 Number of Group Members ( MAX 3 



? 3 



1.2 ID of Member USER1 
2. GROUP DECISION TECHNIQUES 
2.1 Weighted Majority Rule : 



- Name of Member # 1 

- Name of Member # 2 



- Name of Member # 3 



? userl 
? user2 
? user3 
? xl 



- EQUAL Weights (Y/N) 

- WEIGHT for USER1 

- WEIGHT for USER2 

- WEIGHT for USER3 



? n 
? 3 
? 3 
? A 



2.2 Collective Evaluation Mode 

- Choose one of the following modes : 

(1) Each group member will evaluate alternatives 
according to all criteria 

(2) Each group member will evaluate only criteria 
according to his exclusive area of his expertise 

Enter a number ? 1 

2.3 Automatic Selection of Techniques of 

Aggregation of Preference (Y/N) ? y 

2. A Automatic Computation of NAI (Y/N) ? y 

3. INFORMATION EXCHANGE 

3.1 Broadcasting of individual outputs (Y/N) ? y 

3.2 Permission to Modify Individual Analyses 

AFTER Group analyses (Y/N) ? y 

3.2.1 How Many Times (MAX 10 ) ? A 

3.3 Time Limit to Submit Individuals Results : 



Figure £4. Group Norm Definition 



3.3.1 How Many Days (MAX 1A ) 

3.3.2 Hours ( 1:00 to 2A:00 ) 



? 7 

? 12:00 



STEP 2 : GROUP NORM DEFINITION 
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NAIC OF PROBLEM : SHIPS 






ENTER TIE ALTERNATIVES 


1 . 


type 




2 . 


type 




3. 


type 



4. q 

ENTER TIE CRITERIA : 

1. weapons 

2. electronics 

3. engine 

4. cost related 

5. q 



STEP 1 : MULTIPLE CRITERIA GROUP PROBLEM DEFINITION 
Definition of criteria * 1 ) st level 2)nd level 3)nd level Q)uit 



Figure £5. 1 Group Problem Definition 
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SHIPS. DEF 


N0RMSH.SN 


SELECT. DEF 


SELECT1.GN 


THE NAME OF THE PROBLEM ? select 




THE NAME OF THE NORM ? select 1 




YOUR NAME ? userl 




YOUR ID ? xl 




THE METHOD THAT YOU WANT TO USE ? 


aho 


STEP 3 : PRIORITIZATION OF EVALUATION 


CRITERIA 


Identification of the problen Methods 


: AHP or DIRECT 



Figure 26. User 1 / Problem Initiation 
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PAIRWISE COMPARISON 






PRIORITY VECTOR 






WEAPO 


ELECT 


ENGIN 


COST 






WEAPO 




1.00 


1.60 


1.90 


WEAPONS 


0.317 


ELECT 


1.00 




1.60 


1.90 


ELECTRONICS 


0.317 


ENGIN 


0.63 


0.63 




1.40 


ENGINE 


0.198 


COST 


0.53 


0.53 


0.71 




COST RELATED 


0. 167 



** LAMBDA MAX 


= 4.31 


CONSISTENCY INDEX 


= 3.30 


RANDOMIZED INDEX 


a 0.90 


CONSISTENCY RATIO 


= 0.30 




UEA ELE ENG COS 
0.32 0.32 0.20 0.17 

DO Y(XJ WANT TO MODIFY THE EVALUATION OF THE CRITERIA (Y/N) ? 



STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Method : AHP 



Figure £7 



User 



1 / 



Prioritization of Evaluation Criteria (AHP) 



THE FINflL CRITERIA ( 4) AND THEIR WEIGHTS ARE : 



YOU HAVE TUO METHODS : 

1. DEFINE THE NUMBER OF THE CRITERIA THAT YOU WANT TO USE 

2. DEFINE TIC SUM ( % ) THAT YOU WISH 

METHOD THAT YOU WISH (1 OR 2) ? 

STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Deteraine the number of the criteria 



Figure £0. User 1 / Final Weights of Evaluation Criteria 



1. WEAPONS 

2. ELECTRONICS 

3. ENGINE 

4. COST RELATED 




£1£ 



FIGURE 



THE FINflL CRITERIA ( 3) 


AND THEIR WEIGHTS ARE 


. WEAPONS 


: 0.38 


!. ELECTRONICS 


: 0.38 


t. ENGINE 


: 0.24 



DO YOU WANT TO CHANGE HUMBER OF THE CRITERIA (Y/N) ? 


1 

n 


STEP 3 : PRIORITIZATION OF EVALUATION CRITERIA 
Determine the number of the criteria 





£9. USER 



/ THE REDUCED SET OF CRITERIA 



£1 



PRIORITY VECTOR 



ALTERN. EVALUATION : WORKING AREA 





TYP TYP TYP 






UEA 


9.00 7.00 9.00 


TYPE 1 


0.32 


EL£ 


9.00 9.00 7.00 


TYPE 2 


0.32 


ENG 


S. 00 B.00 9.00 


TYPE 3 


0.36 




TYP TYP TYP 

0.32 0.32 0.36 Do you want to riodify the weights (Y/N) ? 



STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Method used : Direct Input 



Figure 30. 



User 1 / Individual Evaluation of Alternatives Using 
Direct mode 
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FINAL SOLUTION 




TYP TYP TYP 
0.34 0.33 0.33 

HIT ANY KEY TO CONTINIE 



STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Final Result 



Figure 31. Solution of User 1 ( With Direct Mode ) 



ALTERN. EVALUATION : WORKING AREA 


GRADIN6 SCALE 




WEA ELE ENG 




WEA ELE ENG 


TYP 32 30 18 


Ueig. 


: 38 38 


24 


TYP 28 38 21 
TYP 31 31 16 


Exce 


38 38 


24 




Good 


29 29 


18 




Aver 


19 19 


12 




Fair 


10 10 


6 




Weak 


0 0 


0 




P = 


55.00 % 1 


3 = 55.00 * 


MENU 








1. CONCORDANCE MATRIX 

2. DISCORDANCE MATRIX 

3. OUTRANKING MATRIX 

4. MODIFY THRESHOLDS 

5. EXIT ELECTRE 








SELECTION (1-5) ? 








STEP 4 : EVALUATION OF ALTERNATIVES 
Method used : ELECTRE 



Figure 32. User 1 / Evaluation of Alternatives Using Electre 
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CONCORDANCE MATRIX 




#* 


A Concordance index indicates to 




TYP 


TYP 


TYP 


«CI 




what extent an option is better than 


TYP 


- 


76 


62 


2 




another in terms of criteria weights 


TYP 


62 


- 


24 


1 


H 


The index varies between [ 0 - 100 3 


TYP 


36 


76 


*“ 


1 




the higher the better . 
4 indexes are ) = 55 












H 


Column #CI indicates the # of indexes 
satisfying P for each option 


DISCORDANCE MATRIX 




« 


A Discordance index indicates to 




TYP 


TYP 


TYP 


#DI 




what extent an ootion contains a bad 


TYP 


- 


3 


3 


2 




element that makes it un-sat isfactory 


TYP 


11 


- 


3 


2 


** 


The index varies between [0-100 


TYP 


5 


13 


“ 


2 




the lower the better . 

6 indexes are ( = 55.00 












«. 


Coluam #CI indicates the # of indexes 
satisfying Q for each option 


OUTRANKING MATRIX 






** 


An Outranking relation * is the 




TYP 


TYP 


TYP 






one that satisfies both concordance 


TYP 


- 


* 


* 






and discordance requirements. 


TYP 


* 


- 


- 




** 


An - indicates that there is 


TYP 




* 








no outranking relations. 


STEP 4 


: EVALUATION OF ALTERNATIVES 




Method used 


: ELECTRE 









F igure 



User 1 / Concordance, Discordance, Outranking Matri 
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ALTERN. EVALUATION : WORKING AREA PRIORITY VECTOR 





TYP TYP TYP 






WEA 


7.00 5.00 6.00 


TYPE 1 


0.30 


ELE 


7.00 8.00 5.00 


TYPE 2 


0.39 


ENG 


7.00 9.00 7.00 


TYPE 3 


0.30 




TYP TYP TYP 

0.30 0.39 0.30 Do you want to modify the weights (Y/N) ? 



STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Method used : Direct input 



Figure 34. UserS / Individual Evaluation of Alternatives Using 

Direct Mode 
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FINAL SOLUTION 




TYP TYP TYP 
0.35 8.34 0.33 

HIT ANY KEY TO CONTINLE 



STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Final Result 



F igure 



Solution of User £ ( With Direct Mode ) 
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ALTERN 


.EVALUATION : WORKING AREA 


GRADING SCALE 






UEA 


ELE 


ENG 




UEA 


ELE 


ENG 


TYP 


31 


29 


16 


Ueig. 


: 38 


38 


24 


TYP 


27 


32 


22 










TYP 


38 


25 


17 


Exce 


38 


38 


24 










Good 


29 


29 


18 










Aver 


19 


19 


12 










Fair 


10 


10 


6 










Weak 


0 


0 


0 










P = 


55.00 


% 


Q = 55, 



MENU 

1. CONCORDANCE MATRIX 

2. DISCORDANCE MATRIX 

3. OUTRANKING MATRIX 

4. MODIFY THRESHOLDS 

5. EXIT ELECTRE 

SELECTION (1-5) ? 



Figure 36 



User £ / Evaluation of Alternatives Using Elect re 



CONCORDANCE MATRIX ** A Concordance index indicates to 





TYP 


TYP 


TYP 


•Cl 


what extent an option is better than 


TYP 


- 


38 


76 


1 


another in terms of criteria weights 


TYP 


62 


- 


62 


2 


« The index varies between C 0 - 100 ] 


TYP 


24 


38 


- 


0 


the higher the tetter . 



3 indexes are ) = 55 



** Column #CI indicates the # of indexes 
satisfying P for each option 



h A Discordance index indicates to 
what extent an option contains a bad 
element that makes it un-sat isf act ory 
** The index varies between [ 3 - 100 3 
the lower the better . 

6 indexes are ( = 55. £0 
** Column #CI indicates the # of indexes 
satisfying Q for each option 



OUTRANKING MATRIX 


« An Outranking relation * is the 




TYP TYP TYP 


one that satisfies both concordance 


TYP 


* 


and discordance requirements. 


TYP 


* - * 


** An - indicates that there is 


TYP 


— _ _ 


no outranking relations. 


HIT ANY KEY TO CONTINUE 





STEP 4 : EVALUATION OF ALTERNATIVES 
Method used : ELECTRE 



DISCORDANCE MATRIX 



TYP 


TYP 


TYP 

16 


TYP 

3 


#DI 

2 


TYP 


11 


- 


8 


2 


TYP 


11 


Id 


- 


2 



Figure 37. User 



/ Concord ance , D i scordance, 



Outranking Mat r i x 



1 




Figure 3Q. User 3 / Individual Evaluation of Alternatives Using 

Direct Mode 



ooo 



I 

F i gure 



FINflL SOLUTION 




TYP TYP TYP 
0.35 9.34 0.34 

HIT ANY KEY TO CONTINUE 



STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Final Result 



39. Solution of User 3 ( With Direct Mode ) 



1 



ALTERN. EVALUATION : WORKING AREA GRADING SCALE 





UEA 


ELE 


ENG 




UEA 


ELE ENG 


TYP 


31 


2G 


15 


We ig. 


: 38 


38 


24 


TYP 


28 


28 


23 










TYP 


32 


25 


17 


Exce 


38 


38 


24 










Good 


29 


29 


18 










fiver 


19 


19 


12 










Fair 


10 


10 


6 










Weak 


0 


0 


0 










P = 


55.00 


i 


q = : 



MENU 

1. CONCORDANCE MATRIX 

2. DISCORDANCE MATRIX 

3. OUTRAGING MATRIX 

4. MODIFY THRESHOLDS 

5. EXIT ELECTRE 

SELECTION (1-5) ? 



STEP 4 : EVALUATION OF ALTERNATIVES 
Method Used : ELECTRE 



Figure 40. User 



/ evaluation of (Alternatives Using Elect re 
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COCGRDANCE MATRIX « ft Concordance index indicates to 





TYP 


TYP 


TYP 


#CI 


what extent an option is better than 


TYP 


- 


38 


38 


0 


another in terms of criteria weights 


TYP 


62 


- 


62 


2 


« The index varies between C 0 - 100 ] 


TYP 


62 


38 


- 


1 


the higher the better . 



3 indexes are > = 55 



** Column #CI indicates the # of indexes 
satisfying P for each option 



DISCORDANCE MATRIX « A Discordance index indicates to 



TYP 


TYP 


TYP 

21 


TYP 

5 


#01 

2 


what extent an option contains a bad 
element that makes it un-sat isfactorv 


TYP 


3 


- 


11 


2 


** The index varies between C 0 - 188 J j 


TYP 


yj 


16 


- 


2 


the lower the better . 



6 indexes are < = 55.00 



** Column #CI indicates the # of indexes 
satisfying Q for each option 



OUTRWKING MATRIX 


h An Outranking relation * is the 


TYP TYP TYP 


one that satisfies both concordance 


TYP - - - 


and discordance requirements. 


TYP * - * 


» An - indicates that there is 


TYP * - - 


no outranking relations. 


HIT fWY KEY TO CONTINUE 




STEP 4 : INDIVIDUAL EVALUATION OF ALTERNATIVES 
Method used : ELECTRE 



F i gure 



41 



User 



/ Concordance, D i scordance, 



Outranking M a t v 



ALT. CARDINAL RANKINGS ORDINAL RIMING GROUP RESILTS 





USER1 USER2 USER3 


USER1 USER2 USER3 




R1 


R2 


R3 


R4 


Ueig 


. :3. 90 


3.00 


4.00 


















TYP 


1.01 


1.01 


1.35 


2 


2 


2 


TYP 


6 


1.13 


1.12 


3 


TYP 


1.06 


1.06 


1.41 


1 


1 


1 


TYP 


3 


1.17 


1.16 


6 


TYP 


1.01 


1.01 


1.34 


3 


3 


3 


TYP 


9 


1.12 


1.11 


0 



R1 : SUN OF RAWS R3 : NJLTIPLICATIVE RAWING 

R2 : ADDITIVE RAWING R4 s SLW OF 0UTRAWIN6 RELATIONS 

HIT ANY KEY TO CONTINUE 



STEP 5 : COMPUTATION OF GROUP DECISION 
All the solutions have computed with AHP 



Figure 42. Group Solution of the Problem 
(Solved with Direct Mode) 
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ALT. INDIVIDUAL RATINGS 


ORDINAL 


RANKING 


GROUP RESULTS 


USER1 USER2 USER3 


USE 


USE USE 


R4 Rl 


TYP 0 0 0 


3 


3 3 


TYP 0 S 


TYP 2 2 2 


1 


1 1 


TYP 6 3 


TYP 1 1 1 


2 


ro 

ro 


TYP 3 6 


Ri : SUM OF RANKS 




R3 : MULTIPLICATIVE RANKING 


R2 : ADDITIVE RANKING 




R4 : SUN OF OUTRANKING RELATIONS 


HIT ANY KEY TO CONTINUE 








STEP 5 : COMPUTATION OF GROUP DECISION 
All the solutions have coaputed with ELECTRE 



Figure 43. Group Solution of the Problem 
(Solved with Elect re Mode) 
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